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まえがぎ 


C 言語は現在，パソコンの機種を越えた共通の言語として使われるように 
なり，学習する方も非常に多くなりました.中でも ， BDS C ， Q - C は8ビ 
ットパソコン上で動作する本格的な C コンパイラとして有名で，安価で操作 
が簡単なことから，初心者も気軽に学習をはじめる事ができます. 

ただ，残念なことに， C 言語はシステム記述言語と呼ばれるように， 0 S など 
高度なプログラム開発を目的とした言語であるため，学習は簡単ではありま 
せん.さらに ， BDS C は8ビットの C 言語として最もポピュラーなものであ 
るにもかかわらず，標準的な C 言語から一部機能の削除されたサブセット版 
であり，標準 C の参考書では学習しにくい場合があることも事実です. 

そのため，本書では C 言語そのものの解説は最小限に留め ， BDS C ， a-c 
を学習する上で判りにくいポイント，重要なポイントが把握できるようにサ 
ンプルブログラムを中心に解説しました.初心者の方には最適の教科書にな 
ると思われます. 

さらに，応用編として BDSC ， ひ -C における日本語処理，オーバーレイ 
技法などを取り上げ，初心者だけでなく，本格的に BDS C を使っている方 
も十分役立つ内容となっています. 

是非，本書を活用されることを期待しています. 

なお，本書では次のバージョンを用いています. 

BDS C バージョン 1.50 a 
ひ -c バージョン1.51 


昭和62年1月 


御手洗毅 


■ CP / M は Digital Research Inc •の登録商標です. 

■ BDS C は BD SOFTWARE , Inc . の登録商標です. 
日本総代理店は ㈱ ライフボートです. 

■ a - C は ㈱ ライフボートの商標です. 
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第丨章 

BDS C 入門 


BASIC では， パソコンの 電源を入れて BASIC を起動させ， その あとプロ 
グラムが完成するまでフロッピーディスクを抜いたままで作業を行なう 
ことができます.これは ， BASIC インタ プリ ンタ 本体が ハ。ソコンの メモリ 
上に常駐しており，その上で，プ□グラムの作成，変更，実行といった 
一連のプログラム開発作業がすべて行なえるようになっているからです。 

BDS C は CP / M のもとで動作しますが， BDSC に限らず，すべての CP / 
M 用のソフトウェアはディスクが基本になっており，フロッピーディス 
クがなければ一切の作業を行なうことができません.エディタ，言語（コ 
ンパイラ）などは異なるプログラムとして独立してディスク内に記録さ 
れ，必要に応じて実行されるわけです.これは大変不便なようですが， 
メモリに常駐している部分が小さいため，大きな マシ ン語プ□グラムを 
動作させることができるという特徴を持っています.ちょっとしたプロ 
グラムを作るだけなら， BASIC で十分という場合もありますが，本格的な 
プログラムを動作させたい，作成したいという場合には， CP / M を用いる 
ことは常識であり，中でも BDS C は本格的な8ビット用のソフトウェアを 
作るのに向いています. 
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第 1 章 BDS C 入門 


^1-1 BDS C のセツトアップ 


(1 )BDS C , ひ - C 利用の手順 

BDS C ， Qf - C を用いたプログラム作成の概要について説明します. 

まず， C 言語のソースファイルはテキストエディタを用いて作成します. 
CP / M を購入した際に ED . COM というエディタが付属していますのでそれを 
用いることもできますが， ED は1行ごとに表示させながら行単位で書いてい 
くラインエディターですので，一般には画面にプログラムを表示させ，力一 
ソルにより1文字ずつ編集するスクリーンエディタを利用する方が便利です. 

CP / M -80 用には米 マイクロプロ 社の ワードマスターやワードスターが 有名 
ですが， C 言語の ソースプロ グラムを ディスクファイ ルとして作成できるも 
のであれば何でも構いません.しかし， エディタが 使えなければ BDS C は 
使うことができませんので，その操作に慣れることが C 言語に慣れる第一歩 
と言っても過言ではないでしょう. 

次に，作成した ソースファイルを BDS C あるいは Qf-C コンパイラ によっ 
てコンパイル します. コンハ。イラ 本体は両者とも同じ ファイル 名で， 

c c . com 
c c 2 . com 

という2つから成り，これらがオーバーレイ（チヱイン）してコンパイル作 
業を行ないます.ここで重要なのは，これらのプログラムで処理された出力 
はそのまま CP / M 上で実行できるわけではなく，一旦リロケータブルなバイ 
ナリ形式のファイルとしてディスク上に作成されることです.これは複数の 
ソースファイルから1つの実行プログラムを作成したり，すでに BDS C に 
備わっている別のプログラムモジュール（標準関数など）と組み合せる際に 
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必要だからです. 

実行ファイルを作成するためには，リンカーを用います.リンカーは 

cl ink. com 

という専用プログラムが用意されています.これを用いると，実行形式の 
COM ファイルが得られ，作成したプログラムを実際に動作させてみることが 
できるわけです • cc ， cc 2， clink などの基本ソフトウェアはまず，マスター 
ディスクからピックアップし，作業用ディスタにコピーしておくことが必要 
ですが，使用ディスクのタイプによって要領がかなり異なってきます. 1 MB 
以上のディスクを使う場合には1基でも余裕がありますので，滅多に使わな 
いプログラムもコピーしておくことが可能ですが， 320 KB 程度のドライブの 
場合にはどうしても最低限必要なファイルだけをまとめておき，それ以外の 
ファイルが必要になった時にはディスクを抜き差しして使うことになります. 
320 KB ドライブの場合，1基でも利用は可能ですが，大きなプログラムを作 
るとすぐディスクが一杯になってしまいますので，実用的には2基以上必要 
です. 

く最低限必要なファイル （BDS C ， Qf - C 共通）〉 


c c . com 
c c ^ . com 
cl ink . com 
de f f . c r 1 
de f f 2. c r 1 
c . c c c 
b d s c i o . h 

く必要に応じて利用するファイル （BDS C ， a - c 共通）〉 


clib.com 


( c ライブラリアン） 
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dio.li 
d i 〇 . c r 


(ダイレクトコン ソール 10パッケージ） 
(ダイレクト コンソール 10パッケージ） 


く必要に応じて利用するファイル （BDS C のみ）〉 


f 1 〇 a t . c r 
1 〇 ng . c r 1 
c a s m.com 
c a s m . sub 
c d b. com 
c db2. o v1 
12.com 


(浮動小数点演算パッケージ） 
(倍精度整数演算 パッケージ) 
(アセンブラパッケージ） 
(アセンブラパッケージ） 
(シンボリックデバッガー） 
(シンボリックデバッガー） 
( cdb 用リンカー） 


【注意】 dio , float , long , cdb , 12などはマスターディスクにソースリストの形 
で格納されていますので，マニュアルに従って，あらかじめ処理す 
る必要があります.また， casm を用いる際には CP / M の標準ユー 
ティリティ ASM ， DDT が必要になります. 

く最低限必要な CP / M ユーティリティ〉 

PIP.COM 
STAT.COM 
SUBMI T . COM 
XSUB.COM 

ED . COM (あるいは他のエディタ） 

その他，ディスクフォーマット•ディスクパックアップ用のユーティ 
リティなど. 

(2) ソースファイルの作成 

必要なファイルを格納した作業用のディスクを作ると，プログラムの作成 
を始めることができます. 

まず-最初に C 言語のソースファイルを作成します.ここでは最も簡単な 
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プログラムとして，画面に文字を出力するプログラムを作成してみます. 

リスト 1-1-1 hello , c 


^include く bdscio.h 〉 


main 0 

{ 

printf ("hello, world¥n*); 

} 

この内容のファイルを CP / M 付属のエディター， ED を用いて作ってみま 
しよう.下線部が実際に手でタイプした部分です. 

操作例 1-1-2 hello , c の入力 


A>ed hello.c 


NEW FILE 


本 i 

^include <bdscio.h> 


main () 

T 

printf Chello, world¥rT); 

} 

*e 


A > 


ED には多くのコマンドがあり，ファイルの作成，修正，編集などが行なえ 
るようになっていますが\詳細は省略します. 

さて，プログラムはたった5行ですが，これは C 言語の基本的なマニュア 
ルである「プログラミング言語 C 」* という本の最初にでてくるサンプルプロ 


* 巻末の参考文献参照 
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グラムで，おそらく現在 C 言語を使っている多くの方が1度は実際にタイプ 
してみた例の1つだと思います. 

一目でわかるように， C はその多くの部分を小文字で記述します.見た目 
に美しく， かつ | ， 丨などの記号を用いることでタイプ量が少なくなってい 
るのもその特徴の1つになっています.また，強制ではありませんが，対応 
関係をはっきりさせるために， インデント （字 下げ）を行ないます. 

さて，実際のプログラムですが， 

井 include く bdscio . h 〉 

という第 1 行は BDS C のプログラムを書く上での決まり文句です.初心者 
のうちは，第1行は必ずこのように書くと考えて構わないでしょう.実際に 
は，ディスタから 

b d s c 1 〇 . h 

というファイルを読み込み，この行と入れ換える動作を行ないます. 

次の行から実際のプログラムがスタートします. 

ma 1 n k ) 

main はこの関数の名前です.関数というのは， C 言語におけるプログラム 
の単位で，1つのサブルーチンと考えれば良く， （） の中には通常引数を列 
挙します.たまたまここでは引数はありませんが，カッコを省略することは 
できません.そして実際のプログラム本体は次のカーリーブレイス記号 I か 
ら，最後の1までとなります • 丨丨はプログラムの中にも登場しますので， 
それらの対応関係が正しくなるように関数単位で丨と丨の数を合わせる必要 
があります. 

なお，関数名はキーワード （ if や for など）•変数名とダブらなければ自由 
に決めることができるのですが， main という関数名だけは，固定（変更は可 
能）で，プログラムそのものがスタートした時，必ずこの main という関数 
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から実行が開始される決まりになっています•いくつも他の関数が定義され 
ていて， main が最後の方にあったとしても実行は必ず main から始まるわけ 
です.言い方を換えると，必ず関数 main は必要だということです. 

printf (” hello , world ¥ n ”） ; 

この1行が実際に動作するプログラムの本体です. “ hello , world ” という 
文字列を画面に表示するわけですが， ここで 用いて いる 関数 printf は BASIC 
の PRINT 文などと異なり， C 言語の機能としてあらかじめ用意され ている 
わけではなく，あくまで 1つの 関数として扱われ， ユーザーが 作成した関数 
との区別はありません.つまり，単に BDS C の 作成者がユーザーの便利の 
ために作っておいたサブルーチンの1つなのです. 

BASIC では PRINT 文などのあらかじめ備わっている機能と，ユーザ—が 
作成したサブルーチンは完全に異なるものであり，新たにステートメント（文） 
を追加 • 拡張したりすることができません. 

さて，このように関数を利用する場合には，まず関数名を書き， （） の中 
にその関数への引数を記述します.この場合は“”で囲んだ文字列が引数と 
いうことになっているわけです.なお，文字列の最後の ¥ n は改行の指定で 
す.文字として書くことができない制御コードなどは，¥マークと文字を組 
み合せて表現することになっています. BASIC で， 

PRINT " hello ” と， 

PRINT " hello " ; 

の違いはお判りですね. BASIC と逆に，改行する場合にこのような付加記 
号が必要になってくるのです. 

なお，文の終りには，必ずセミコロン （；） を付けます. 

それでは，実際のコンハ°ィル作業を行なってみましょう.このプログラムは 


h e 11〇 . c 
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というファイル名で，ドライブ A に作成しましたから，操作例1 - 1 - 3のよ 
うにコンパイルし，実行してみてください. 

操作例 1-1-3 hello , c のコンパイル 

h@ 110^- hello.c のコンパイル. hello, crl というファイルが作成される. 

BD Software C Compiler vl.50a (part I) 

35K elbowroom 

BD Software C Compiler vl.50 (part II) 

32K to spare 

A>cl ink hello^ - hello.crl から hello.com という実行ファイルを作成する . 

BD Software C Linker vl.50 
Linkage complete 
43K left over 

A >hello" - heiio の実行 . 

hello, world 


A> 

正しく実行できたでしょうか.これらのコンパイル，リンクの流れを図1- 
1-4 に図示しておきます. 









1-2 初心者のためのサンブルプログラム 


9 


タイ ビング 



■1-2 初心者のためのサンプルプログラム_ 

すべてのコンピュータ言語に共通して言えることですが，上達への早道は， 
簡単な短いプログラムを数多く作ってみることです.本項では，学習に適し 
たサンブルプログラムを解説とともに示しますので，実際にタイプし，実行 
してみてください. 


(1) 1から10までを加算して表示するプログラム 


♦include 


リスト 1-2-1 goukei . c と実行例 


main 0 


<bdscio.h> 
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int 


i,sum; 
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for ( i=l ； i<=10 ； i++ ) 

{ 

sum = sum + i; 

} 

printf ( *G0UKEI = Xd¥n*, sum); 

} 

〈実行例〉 

A>G0UKEI 
GOUKEI = 55 
A> 

C 言語の for 文は BASIC とは異なりますので，注意が必要です. 

for ( i =1 ; i < =1〇 ； i ++) 


最初に 1 回だけ実行される 一 1 

i が10と等しいか，10より小さい間- 

は丨 I の中を繰り返す 

{} 内を実行するたびに実行される - 

(i + +は i = i +1 と同じ） 

条件は制御変数 i と終値との比較だけでなく，丨と全く関係のない比較文 
を書くこともできます.また，単純増加，減少だけでなく， i + + のかわり 
に i = i * 2などとすることもできますので，はるかに用途が広くなっていま 
す.また，条件のチヱックはループの実行前に行なわれます.従って，最初 
から条件が成立しなければループ内部は一度も実行されません. 
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(2) 彳00までの素数を表示するプログラム 

リスト 1-2-2 sosuu . c と実行例 

#include く bdscio.h 〉 

mainQ 

{ 

int i ， s; 

char f; 

for (s=2 ； s<=100; s++) 

{ 

f=0 ； 

for (i=2; i<=s-l; i++) 

{ 

if (s3 ： i==0) 

{ 

f=l ； 

break; 

} 

} 

if (f==0) printf (^d¥t # ,s); 

} 

} 

〈実行例〉 

A >$0 SUU 

2 3 5 7 11 13 17 19 23 29 

31 37 41 43 47 53 59 61 67 71 

73 79 83 89 97 

A > 

%は剰余演算子で， s % i で s を i で割った余りを求めます. 

リスト 1-2-2 はある数に対し，2からその数より1小さい数までしらみ 
つぶしに割り切れるかどうかを調べ，割り切れなかった場合を素数とします. 
この例では，割り切れた場合にフラグ f を1にし，それ以降チェックを省略し 
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ます.このよう なループの 中途強制中断には break を用います. 

ループの 外でフラグ f を見て，0であれば割り切れる数がなかったのです 
から，素数として画面に表示します. 

¥t はタブコードで， TAB キーを押したのと同様，数字と数字の間にスぺ 
ースをあけます.¥ n などと同じ文字列中の特殊文字です. 

(3) 任意の2つの数字を手で入力し，その加算結果を表示するプログラム 
リスト 1-2-3 nyuryoku. c と実行例 

(include <bdscio.h> 

main 0 

{ 

int dl,d2; 
printf ("input =*)； 

scanf nd ， Z(T ， &dl,M2); 

printf r%d+%d=%d¥n*,dl,d2,dl+d2 )； 


〈実行例〉 

A>N¥URY0KU 

input=5,10 
5+10-15 

A> 


scanf は BASIC の INPUT 文に相当します.しかし，そう濒繁に用いられる関数 
ではありません.ここで，引数を指定する際に変数名の頭に&記号を付けてい 
ることに注目してください. C 言語では，関数の戻り値としてただ1つの値 
しか返すことができません. 2つ以上の値を返さねばならない場合，&記号 
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をつけて変数の_的なアドレスを渡し，そのアドレス位置に書き込ませる 
ことによって，目的を達します. C 言語ではアセンブラと同様，このような 
アドレスをしばしば用います.他の高級言語には余り例がなく， C 言語の特 
徴でもあります. 2つの変数の値を入れ換えたりする場合にも引数を変数の 
アドレスにしなければ，実現できません. 

(4 ) 手で入力した文字をそのまま画面に表示するプログラム 


リスト 1-2-4 typeout . c と実行例 


^include く bdscio.h 〉 

Jfdefine EOF -1 


main 0 

{ 

int c; 

while (! ((c=getchar())==E0F)) putchar(c); 


〈実行例〉 

A>typeout 

AABBCCDDEEFFGGHHIIJJKKLLMMNN 

A> 


このプロ グラムは キーボー ドからの1文字入力関数 getcher と出力関数 
putchar の使用例ですが， getchar でその値を格納している変数 c が int (整 
数）型である ことに 注意してください.ファイル終了 コー ドと 同じ Oxla 
(コント ロー ル Z ) をキーボードから入力すると，入力の終了と判定し ， getchar 
は一1を返しますが char (文字）型の変数は0から255までの値しか取れない 
ため， 一1 という値との比較が成立しなくなります. 




14 


第 1 章 BDS C 入門 


(5 ) 棒グラフの表示 


リスト 1-2-5 bargraph . c と実行例 


^include く bdscio.h 〉 

main 0 

{ 

int dl ， d2; 
printf (*datal ->’）； 

scanf C%d*,idl )； /* input datal */ 

printf (*data2 - >•); 

scanf &d2 )； /* input data2 ♦/ 


bar (dl); 
bar (d2 )； 


bar(n) 

int n; 

{ 

int i; 

for (i=l ； i<=n ； i++) 
printf (• %d¥n'n); 


/* output bar & data */ 


printf (•*•〉; 


〈実行例〉 

A>bargraph 

datal->15 
data2 - >20 

本本本本本本本本木本本本本本本 15 

本本本本本木本本本本本本本本本本本本本本 20 


A> 




1-2 初心者のためのサンブルプログラム 
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アスタリスク （*) を指定した数だけ画面に出力し，棒グラフを作るプログ 
ラムです. 

ここで紹介したプログラムは B A SIC などでも良く作成されるものですが， 
実際のプログラミング作業は BASIC に比べ，難しくなります.しかしなが 
ら，その動作速度はさすが C 言語と言わしめるものがあります. 

これらはすべて，デイスクのファイルアクセス処理のない簡単なサンプル 
です.是非，すべてを理解して欲しいと思います. 



















C のプログラムスタイル 


第1章では全くの初心者の方がプログラムを作成する場合のサンプル 
をご紹介しました. C 言語は非常にシンプルですが，細かい部分ではど 
うしてもテクニックを必要としますから，それが初心者の頭を悩ますと 
ころでもあります. 

本章では，練習のためのサンプルプログラムではなく，本格的に BDS 
C を使っていくために必要な部分を学習します.ざっと読み流しても構 
いませんが，判らないままにはせず，自分のものになるまで理解してく 
ださい.実際にプログラムを作成する場合，大きな力になるはずです. 
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| 2-1 ボインタの使い方 

ポインタは小型で高速なオブジェクトを出力する C 言語におけるスーパー 
スターであり，非常に特徴的な機能です. 

この機能のおかげでシステム記述言語として，ハードウェアに密着したソ 
フトウェアや 0 S ， 言語などが作成しやすいと言われているわけです•しか 
し，その利用は必ずしも簡単とは言えません. 

2-2，2 -3 節で述べるコマンドラインの受け取り方や文字列の処理など 
では，ポインタは使わないわけにはいかないのですが，ポインタは初心者程， 
無理に使おうとする傾向があり，使わなくても良い場合まで使いがちです • 
ポインタを利用するプログラムの多くは配列を用いて書き換えることが可能 
で，その方がプログラムの理解もたやすくなります. 

ポインタの使い方に慣れてくると，ポインタを使うことでプログラムが小 
さく，作成も簡単になる場合と，複雑で混乱を招きやすくなる場合との区別 
がつくようになってきます.ポインタ，ポインタと呪文のように唱えるより， 
プログラムを早く，正確に作ることを最初は優先すべきだと思います.ただ 
し，ポインタは重要な概念です.無理にポインタを使う事には反対ですが， 
ポインタを知らずに済ますことはできません. 

(I )文字列に対するポインタの使い方 

さて，ポインタの具体的な使い方を説明するために，ポインタが最も多用 
される場合として，文字列の処理を扱ってみます.標準関数に strlen という 
文字列の長さをカウントする関数がありますが，これと同じものを配列を用 
いて実現した例をリスト2-1_1に，ポインタを用いたものをリスト 2-1 -2 
•に作成してみました.説明のため，関数名を前者は strlenl ， 後者は strlen 2 
としていますが，動作は全く同じです. 

なお，文字列については 2-4 節で詳細に触れています. 





2-1 ポインタの使い方 
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リスト 2-1-1 strlenl . c と実行例 

main 〇 

{ 

printf (•length=%(T , strlenl(•HELLO")); 


strlenl(s) 

char s[]; 

{ 

int i; 

i=0 ； 

while (s [i]) i++; 
return (i); 


〈実行例〉 

fl>strlenl 

length=5 


リスト 2 -1 - 2 st 「 len 2. c と実行例 

main 〇 

{ 

printf riength=%d , ,strlen2CHELL0*)); 

} 

strlen2(s) 

char *s; 

{ 

int i; 

i = 0 ； 

while (*s++) i++; 

return (i); 
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〈実行例〉 

A>strlen2 

length=5 

A> 

関数 strlenl ， strlen 2 によって， “ HELLO ” という文字列の長さを求めま 
す. C 言語の配列では，配列の〇番めの要素よりメモリの下位番地（〇に近 
い番地）から順に格納されています. 


配列の0番めの要素 

1 

2 

3 


s [ 〇 ] 

S [1] 
S [2] 
s [3] 


(下位番地) 


(上位番地) 


C 言語では必ずこのような配列が並ぶように定められているため，ポイン 
夕を使うことができるわけです. 

この両者でまず異なるのは，引数 s の受け方です. strlenl では文字列を 
char (文字）型変数酉己列とみなし， s をその配列アドレス（が格納されている 
变数）として宣言していますが， strlen 2 ではポインタ（アドレスを内容とす 
る蛮数）として宣言しています.従って，プログラム中でも strlen 2 では s の 
内容をダイナミックに変化させているのに対し， strlenl では定数として扱い， 
s の値は変化させていません. 

利用する変数の数，アルゴリズム，行数も同じですし，動作も全く同じで 
す. BASIC に慣れた方なら， strlenl は問題無〈理解できると思います.そ 
の上で両者を対応させ，異なる点を突き詰めていくと，ポインタの概念もお 
分りいただけるでしょう. 

さて，プログラム中で実際に異なるのは， while のある行だけです.プログ 







2-1 ポインタの使い方 
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ラムの考え方は全く同じですから， （） の中にある， 

s [ i ] 

* s ++ 


が，内容としては基本的に同じものでなければなりません. 

ここで， S [i] は配列ですから， S という配列の i 番めの要素です（実際 
には S という変数の内容を先頭アドレスとする文字配列の i 番めの要素).最 
初に while の （） の中が評価される時には， i は0ですから文字列の最初の 
文字を表します. while 文は （） の中が0でない時そのすぐ後の文を繰り返 
しますから，もし，そこが文字列の終端文字 （ 0) でなければ， i をインクリ 
メントします （i + + ). 

この部分が strlen2 では *s++ となっています.この場合の*は演算子 
で，変数 s の内容をアドレスとする内容を読み出します.+ +はインクリメ 
ントの演算子で，読み出し操作と同時に s の内容を1増加させます. * は+ + 
よりも優先順位が低いので，* s の値（つまり文字列の中身そのもの）ではな 
く，変数 s の内容（アドレス）を増加させるのだということに注意してくだ 
さい.つまり， *s で内容を参照すると同時に， 

S = S + 1; 

を実行するのと同じです.従って， i = 0 の時， * s + + も文字列の第1文字 
めを表します. 

もし， *s の値を増やすのなら， （*s)++ とし，優先順位を変更するた 
めの （） がなければなりません. 

さて，第1文字が0でなければ，次は i が1になります.従って， s[i] 

は， s[l] ですから，配列の2番めの要素を表します.同様 strleii2 では， 
s の値が1回インクリメントされていますから， *s+ + で2文字めの内容を 
示し， s の値をさらにインクリメントすることになります. 

このように，表現は全く異なるものの，動作としては全く同じ関数を配列， 
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ポインタという2つの考え方を用いて作ることができるわけです. 

念のため，ここで気になるバイト数ですが，関数の部分だけで strlenl は 
62バイト， S trl en 2 は60バイトとなりました.速度は比較していませんが， 
大きな差はないものと思われます. 

(2 ) 整数に対するポインタの使いかた 

int などの整数に対しては， char と比べるとポインタの利用はやや少なくな 
ります.これは，もともと文字列が C 言語では char 型の変数配列として定義 
されているため，文字列を扱う場合にはポインタが避けて通れないのに対し， 
整数に対しては使わなくてもプログラムが作れるからです. 

なお，整数配列も文字配列と同様， 


配列の0番めの要素 

1 

2 

3 


[〇] 

[ 1 ] 

[ 2 ] 

[3] 


(下位番地) 


(上位番地) 


のように並びます.ただし，1つの要素は2バイトずつになります. 

サンプルとして，バブルソートのプログラムを作ってみましよう.バブル 
ソートはより効率の良いソート方法がいくつも考案されていますが，アルゴ 
リズムが単純なため現在でも良く用いられます. 

図2 - 1 - 3にその基本的なソートアルゴリズムを示します. 








2-1 ボイ ンタの使い方 
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1 2 3 4 5 6 7 8 



1と2〜8を比較しながら1の方が大きければ値を入れかえる. 
最終的に1には1〜8の中で最も小さい値が残る. 


1 2 3 4 5 6 7 8 



2と3〜8を比較しながら2の方が大きければ値を入れかえる. 
最終的に2には2〜8の中で最も小さし、値が残る. 


図 2 - 1 - 3 バブルソートのアルゴリズム 

1番から8番まで8個の数値があった場合，まず1番めと2〜8番めの値 
とを順に比較していきます.その際，もし1番の値の方が小さければ1番と 
その数を入れ換えます.すべての数と比較し終ると，当然1番には最も小さ 
い値が残っていることになります. 

次に，2番めと3〜8番の値を比較します.この時も同様の作業を行なう 
と，2番めには2〜8番の数の中で最も小さい数が残ります.今度は3番と 
4〜8番という具合にどんどん比較交換を繰り返していくと最終的には1番 
から8番までの小さい数字の順に並びます. 

それでは，これを実際にプログラミングしてみましょう.数値を用意する 
のが面倒ですから ， BDS C で用意されている乱数発生用の rand 関数を用い， 
ランダムな100個の数値を発生させて配列 array に格納しておき，それをソー 
卜させる事にしましょう.まず，リスト 2-1-4 に配列を用いてソートする 
例を示します. 
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リスト 2-1-4 bsortl.c 

^include く bdscio.h 〉 

define ARMAX 100 
main 0 
{ 

int i ； 

int array[ARMAX]; 

for (i=0; i く ARMAX; i++) 

array[i]=rand (); 

bsortl (array,ARMAX); 

for (i=0; i く ARMAX; i++) 

printf ("%d¥t",array[i]); 


bsortl (arr,n) 

int arr[]; 

int n; 

{ 

int i ， j; 

int tmp; 

for (j=0; j<n-l; j++) 

{ 

for (i=j+l ； i<n; i++) 

{ 

if (arr[j] >arr[i]) 

{ 

tmp = arr い」； 
arr[i] = arr [j]; 
arr[j] = tmp; 

} 


arr 〔 i 〕 と arr 〔 j 〕 
の交換 


ここでソートの部分は bsortl という関数で，引数の arr はソートしたい整 
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数配列の先頭アドレス， n は配列要素の数です.なお，プログラムの先頭で 
ARMAX という文字列に100を定義し，ソートする整数の数を100個にして 
います.ソート数を変える場合にはこの値を変更してください. 

それでは次にこれをポインタを使って書き直した例をご紹介します. 

リスト 2-1-5 bsort 2. c 


{(include <bdscio.h> 


tfdefine ARMAX 100 
main () 

{ 

int i; 

int array[ARMAX]; 

for (i=0 ； i<ARMAX; i++) 

array[i]=rand 0; 


bsort2 (array,ARMAX); 


for (i=0; i く ARMAX; i++) 

printf (*%d¥t*,array[i]); 


bsort2(pnt,n) 

int *pnt; 

int n ； 

{ 

int *spnt; 

int i ， j; 

int tmp; 


for 


(j=0 ； j<n-l ； j++) 


spnt=pnt+l; -- 

for (i=j+l; i<n; i++) 


spnt にはすぐとなりの要素の 
アドレスをセット. 


if ( 本 pnt> 本 spnt) 
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tmp = 本 spnt; 

♦spnt = *pnt; 
*pnt = tmp; 



spnt++; 


pnt++; 


関数 bsort 2 が変更した部分で，その他の部分は全く同じです.ポインタを 
使うとどうしてもリストがわかりにくくなりますが，やむを得ないでしょう. 

さて，関数 bsort 2 では比較変更する整数を指すポインタとして pnt と 
spilt を使っています. pnt は引数ですから，初期値として配列の先頭アドレ 
スがあらかじめ設定されていますが， spnt は口一カル変数ですから必ず値を 
セットする必要があります. pnt は基準位置， spnt は比較位置を指すポイン 
夕として使っています. 

pnt — 〇番めの整数のアドレス 

spnt 番めの整数のアドレス 

からスタートします. BDS C , ひ -C では int は2バイトですから， spnt = 
pnt +1ではなく， spnt = pnt -h 2にしなければならないのではないかと思わ 
れる方もいると思います.確かにアセンブラでプログラムを作る場合は当然 
そうしなければ大きなバグを残してしまいますが， C 言語のポインタの加減 
算では，対象とする変数の1要素分が1になる事になっており，これが正し 
いのです. 

16 ビット， 32 ビット CPU を持つコンピュータでは int が必ずしも 2 バイト 
ではなく，他のビット数を持つことも考えられるわけですから，移植性を考 
えると当然とも言えるわけです. 

リスト 2-1 _ 4 と 2 _ 1 _ 5 は完全に対応していますから，是非両者を見比 
ベ，ポインタの感覚をつかんで頂きたいと思います.実行の結果を実行例2 



2-2 コマンドラインの受け取り方 
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-1-6 に示します（両者の実行結果は全く同一です）. 

なお，気になるオブジェクトサイズですが， bsortl , bsort 2 の関数部分は 
それぞれ226バイト，204バイトとなりました.100個程度のデータでは計測 
できませんが，実行時間にも差がでて いるでしょう. 

なお，蛇足ですが ， BDS C には qsort というソート用の関数があり，大量 
のデータを高速に並べ変える必要がある場合にはこちらを用いた方が良いで 
しよう. qsort はシェルソートアルゴリズムを用いています. 

実行例 2-1- 6 バブルソートの実行結果 


A>BS0RT1 


0 

0 

12 

16 

25 

32 

32 

34 

44 

50 

64 

64 

68 

72 

89 

100 

100 

104 

128 

136 

144 

145 

178 

200 

200 

256 

384 

400 

768 

768 

800 

1650 

1792 

1792 

1856 

2262 

2292 

3301 

3584 

3840 

3968 

4257 

4269 

4293 

4329 

4414 

5123 

6602 

6671 

7168 

7936 

7936 

8259 

8282 

8331 

8402 

8476 

8757 

8829 

9231 

10247 

11769 

12948 

12984 

13542 

13599 

14592 

15872 

15872 

16406 

16518 

16548 

16564 

17209 

17515 

17658 

18463 

18512 

18658 

18945 

19719 

20494 

20890 

20999 

22140 

23283 

25640 

25713 

25856 

26115 

26829 

26883 

27454 

29184 

29441 

29697 

30976 

31232 

31744 

32000 


A> 

| 2-2 コマンドラインの受け取り方 

C 言語でプログラムを作成する際，その多くの場合にコマンドラインから 
の文字列を利用します. C 言語ではこの受け取り方はほぼ固定されており， 
0 S を問わず，移植性が高い部分です. 

このサンプルプログラムはコマンドラインからの文字列を受け取り，その 
まま画面に表示するものです.プログラム作成中に，特別な文字や記号など 
を引数としたい場合に，それが有効かどうか判らないことがあります.その 
ような時，リストのような簡単なプログラムは意外に役立ちます. 
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リスト 2-2-1 argsl . c と実行例 

^include く bdscio.h 〉 

main(argc, argv) 

int argc; 

char *argv[]; 

{ 

int i; 

printf ("argc = %d¥n*,argc); 
for (i=l ； i く argc; i++) 

{ 

printf Carg%d=¥*%s¥*¥n\i,argv[i ])； 


〈実行例〉 

A>argsl MITARAI 31 ABCD 12 3 


argc = 7 

argl ン MITARAI* 

arg2=*31* 

arg3=*ABCD* 

arg4=’l 

arg5=*2* 

arg6="3* 

A> 


さて， main の関数宣言の部分に注目してみましょう. 

main ( argc , argv ) 
int argc; 
char * argv [】； 

というのはコマンドラインからの引数（文字列）を受け取る際の定石です. 
main 関数は実行が開始される最初ですから， main を呼び出す上位の関数とい 
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うものは存在しないわけですが， C 言語では main 関数であろうとも他の関数 
と全く区別しませんので，システムが自動的にコマンドライン文字列を解析 
し，あたかも main に対する上位関数があるかのようにその結果を ma i n 関数 
に渡すわけです. 


こて、、， argc，argv は 


a r g c 引数の数 

argv 引数文字列のポインタ変数配列の先頭アドレス 


となります.要は， 


argc 


argv 



の6つを参照できる. 

図2 - 2 - 2 argv と文字列の関係 


という構造になっており，2段階のメモリ参照で，文字列そのものを参照す 
ることができるわけです.実際のプログラムでは 
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a r gv [ 1 ] 一 1つめの文字列の先頭アドレス 
a r gv [ 2 ] 一 2つめの文字列の先頭アドレス 

a r g v [ n ] 一 n 番めの文字列の先頭アドレス 

となります.文字列そのものを表示したければ， 

printf (a r g v [ n ]；; 

とするだけで， n 番めの文字列を画面に出力できます. 

この考え方は初心者の方にはなかなか難しいのですが，定石ですので，判 
らなければそのまま覚えてください.そのうちにメカニズムがはっきり 
判るようになると思います.なお， printf 関数は一般に，その第一引数は文 
字列をじかに“ ”で囲んで引数とする場合が多いのですが，そのような記述 
も実はこの文字列そのものがプログラム中のどこかに埋め込まれ， printf 関 
数への実際の引数は文字列のアドレスとなっています.つまり，文字列を目己 
述するという事は文字列への 先頭 ア ドレスを書く のと同義なのです. 

なお，リスト 2-2-1 では 

pr i nt f ( ” a rg % d =¥，’％ S ¥”¥ n ，，, i # argv [ i ]); 

となっています.ここでは printf の重要な機能のいくつかを用いています. 
まず， （） の中を分解してみると， 

( a ) ，’ a r g % d =¥”％ s ¥，’¥ n ，’ 

( b ) i 

( c ) a r g v [ i ] 


の 3 つに分けられることが判ります.ここで ( a ) は文字列ですが，中にいくつ 
か特殊な記号が入っています.すでに出てきたものもありますが，もう一度 
確認しておきましょう. 
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%d %は制御文字で，％の直後にある文字によりさまざまな機能 

を持たせることができます. d は10進整数の指定で，文字列 
の後にある引数（この場合は i ) の値を10進整数に蛮換して 
表示します. 

%s %の後が s の場合，引数の値を文字列へのポインタ（文字列 

の先頭アドレス）と解釈し，その文字列を表示します.この 
場令は argv [ i ]，すなわち i 番めのコマンドラインの文字列 
となります. 

これらの％は文字列の中にそのまま組み込まれて， printf 文実行の際に変 
換されて表示されます.この時，制御文字列と引数の関係は， 

(” a rg % d ¥，’％ s ¥ ”¥ n ” ， i , a rgv [ i ]) 


となり，制御文字がでてくるたびに次々と新たな引数を参照していくこと 
になります.このように printf は引数の数が一定しない特殊な関数で，文字 
列の内容と引数の数を対応させなければ正しく動作しません. 

なお，文字列中にでてくる¥は次のような意味を持っています. 

¥” 文字列はその最初と最後を”で囲みますから，”自身を文字 

列中に含ませることができません.そこで文字列では¥記号 
を特殊記号として扱い，¥ ”は文字”そのものとして扱い 
ます. 

¥n 改行を示します. 
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これらの¥を伴うものは，¥の文字そのものが残るわけではなく，コンパ 
イルされた時点で変換されて目的のコードに変わります.つまり，これは 
printf 文の機能ではなく，コンパイラの機能になるわけです. 

さて，このプログラムは簡単ですが，基本的な C 言語の機能をたくさん含 
んでおり，非常に良いサンプルだと思います.特に初心者の方は判るまでテ 
ストしてみることをおすすめします. 

さて， main 関数の引数として一般にはリスト2_2_1のように宣言する場 
合が多いのですが， argv をポインタ変数として宣言することがあります.機 
能としては全く同じなのですが，考え方が異なります. 

(1) ma in ^ argc , argv ) 

1 n t a r g c ; 
char 氺 argv [】； 

(2) ma i n ( a r g c , argv) 

i n t a r g c ; 
char 氺* argv; 

⑴は文字列へのボインタ変数配列の先頭アドレスが argv (の内容）である 
という解釈をする場合， （2) は argv というボインタ変数の初期値がポインタ 
変数配列の先頭に設定されていると解釈する場合です. 

リスト2-2-3に （2) の方法を用いてリスト 2-2-1 を書き直したものを 
示しますが，少しプログラムが変わっているのに気付かれたと思います.ポ 
インタ配列へのポインタとして宣言した場合， argv はボインタ変数として扱 
う方が自然になります. 

なお， *++ argv は argv の内容をインクリメントした後，その内容をアド 
レスとした内容になります. 
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リスト 2-2-3 args 2. c 


Ifinclude <bdscio. h> 


main(argc, argv) 

int argc; 

char 本本 argv$ 

{ 

int i; 

printf ("argc = %d¥n",argc); 
for (i=l;i<argc; i++) 

{ 

printf (*arg%d=¥*%s¥*¥n*,i,*++argv); 

} 

} 

コマンド引数の受取りは非常に重要な部分で，慣れれば簡単なのですが， 
ポインタ配列というやや高度な概念を含むため，初心者の方は意外に悩むこ 
とが多いものです.本項でしっかり把握してください. 


| 2-3 ファイルの入出力 

さて，ファイルの入出力はいくつもの標準関数に支えられて，大変便利に 
なっています. BASIC などに較べるとはるかに機能も豊富ですが，そのぶ 
ん関数の種類が多く，どれを使えば良いか悩むこともしばしばです. 

1つ1つの 関数に ついて，マニュアルを 良く読むことも必要です が， まず 
基本的な いくつかの 関数をしっかり理解することも重要です. 


く 2種類のファイル10> 

一般的な C 言語には低レベルファイル 10 (Input Output = 入出力）とバッ 
ファードファイル10という2つのファイル入出力用の関数群が用意されてい 
ます.これらは基本的には次のように考えれば良いでしょう. 
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低レベル10 —ファイルの物理的な記録単位 （ CP / M では128 

バイト）での入出力を行なう場合 

バッファード10 —ファイルと1文字単位でデータの出し入れを行 

なう場合 

多くの場合，バッファードファイル10の方が操作は簡単ですが，バッフ 
ァードと言えどもその中で低レベルファイル10を利用しているのですから， 
処理そのものの速度はどうしても遅くなります.ファイルコピーのようにど 
ちらを利用してもできるようなプログラムの場合には当然低レベル10の方 
が処理速度は速くなります. 


く低レベルファイル 10> 


ファイルをブロック単位で扱う場合に使いますので，ファイルのランダム 
アクセス，ブロック転送などに有効です. 

低レベルファイル10として重要なのは次の4つの関数です. 

open —既にディスク中に存在するファイルを読み書きするため 
にファイルをオーブンします. 

creat — ファイルがある場合には消去し，書き込みのために新し 
くファイルをオーブンします. 
close ー ファイルをクローズします. 
read —ファイルをブロック単位で読み出します. 
write —ファイルにブロック単位で書き込みます. 
seek ー ランダムアクセスなどのため，ファイルの読み書きポイ 
ンタを変更します. 

まず， open が既に存在するファイルをオープンし，読み出し，書き込み， 
あるいはその双方に備えるのに対し， creat はファイルがある場合には消去し 
てから書き込み用にオーブンします.従って， creat では同じ名前のファイル 
は強制的に消去されますから，注意が必要です. open ， creat によってオーブ 
ンされ，書き込み処理が終了したファイルは必ず最後に close によってクロ 



ーズしなければなりません. 
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read , write はそれぞれファイルからの読み込み，ファイルへの書き込みを 
行ないます. BDS C ではこの単位は128バイトになっており，1バイトだ 
けが必要な場合にも128バイトいっぺんに読み書きする必要があります. 

一応，これらの関数の存在と簡単な機能だけを知っておけば，後はプログ 
ラム作成時にマニュアル通りに記述していくだけでも何とかなります. 


まず，簡単な例として，ファイルの内容を16進数とアスキーの両方で表示 
するブログラムを作成してみます. 


1 

2 


5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 


リスト 2 - 3 - 1 cdump. c ファイルダンププログラム 


^include < bdscio . h > 

^define ERROR -1 

^define INPUT 0 

main(argc,argv) 

int argc ； 

char * argviJ ; 

{ 

char buf [128]; /* sec tor buffer */ 

int fd ; 

int sz ; /* size of sectors ♦/ 

unsigned adr ; 

if ( argc !=2) 

{ 

printf (" Usage : cdump filename *); 
exit 0; 


fd = open (argv[l],INPUT); 
if (fd == ERROR) 

{ 

printf rCan’t open %s",argv [1]) ; 
exit (); 

} 

adr = 0; 
while (1) 

{ 

sz = read (fd,buf,1); 

if (sz < 1) break; /» file end 拿 / 
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33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 


dump (buf , adr ) ； 

adr += 128 ； 

} 

close (fd )； 


dump (buf,adr) 

char *buf; 
unsigned adr ； 

{ 

in t i, j; 

for (i=0; i く 128; i+=16) 

{ 

printf (*%04x *,adr+i); /* address output */ 

for (j=0; j<16 ； j++) /* hex output */ 

printf CX02x 'bufCi+j]); 


printf (• •); 

for (j =0; j<16; j++) 

{ 

if (buf[i+j]<’ ’） 

else 

} 

printf (*¥n *)； 


/* ascii output 本 / 

printf (’•’）； 
printf (*%c* ,buf [i+j ])； 


[15 行〜 19 行] 

プロダラムの実行方法が分らなくなったり，誤った指定をした場合に， 
CDUMP の使用方法を示す部分です.15行めで （ argc ! = 2) となっています. 
arge が 2 以外の場合，つまりファイル名が指定されなかったり，あるいは 2 
つ以上の文字列をプログラム名に続けて指定してしまった場合はすべてこの 
Usage :を表示して終りになります.！==は一致しない時に真となる比較演 
算子です. 

exit () はプログラムを中断し，強制的に終了する場合に使います. 


[21 行〜26行] 

関数 open を実行し，ファイルが存在しないなどの理由でエラーとなつた場 
合にはそのメッセージを表示して終ります. 
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[28 行 ] 

ダンプアドレスを初期化します.これはダンプの際，左端に表示するアド 
レスが0からスタートするように指定します. 


[29 行〜 35 行 ] 

ここがプログラムの本体部分です. 31 行でファイルをリードし，もし実際 
に読み込んだセクタ数（ブロック数）が指定した読み込みセクタ数の1より 
小さかった場合， ファイルの 終了と考えられます.その場合には このループ 
から抜け出します. 

もし，正しく読み込めた場合にはその内容を関数 dump に送ってダンプし， 
ダンプアドレス adr を 128 カウントアップしておきます. 


[36 行 ] 

終了ですので，ファイルをクローズします. 

実行例 2-3-2 cdump. c の実行例 


A>cdump 

Usage: cdump filename 
A>cduwp cdump.c 


0000 23 69 6E 63 
0010 2E 68 3E 0D 
0020 45 52 52 4F 
0030 65 09 09 49 
0040 69 6E 28 61 
0050 69 6E 74 09 
0060 09 2A 6172 

A> 


6C 75 64 65 09 3C 
0A 0D 0A 23 64 65 
52 09 2D 310D 0A 
4E 50 55 54 09 30 
72 67 63 2C 6172 
6172 67 63 3B 0D 
67 76 5B 5D 3B 0D 

(後略） 


62 64 73 63 69 6P 

66 69 6E 65 09 09 
23 64 65 66 69 6E 
0D 0A 0D 0A 6D 61 

67 76 29 0D 0A 09 
0A 09 63 68 6172 
0A 7B 0D 0A 09 63 


^include.<bdscio 
•h> …• 林 define.• 
ERROR.-l..#defin 
e..INPUT.0....raa 
in (argc,argv) … 
int.argc; … char 
.*argv[] .c 


くバッファードフアイル10> 


さて，低レベルファイル10関数がディスクファイルの内容をブロック単位 
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でしか扱えないのに対し，バッファードファイル1〇では1文字単位でファイ 
ルを扱うことができます.しかしながら， CP/M ではあくまでディスクとの 
やりとりは128バイトという固定されたサイズでしかできないのだとい う事 
は知っておく必要があります.バッファー K (Buffered) という意味もまさに 
そこにあり，1文字入力の場合であればディスクからブロック単位のデータ 
を読み取って一旦バッファー（メモリ ） に蓄え，そこから1文字1文字切り取 
ってくることを示しています. 

高級なファイル10ですから，使い方はかえってやさしいのですが，まずど 
のような関数があるか説明します. 

{open —既に作成されているファイルをオープンします. 

f c r ea t 一 同一名のファイルがある場合にはそのファイルを消 
去し，書き込むためにファイルをオープンします. 
fclose — ファイルをクローズします. 

get c —ファイルから 1 文字読み込みます. 

p U t C —ファイルに1文字書き込みます. 

f g e t s —ファイルから 1 行読み込みます. 
fputs — ファイルに1行書き込みます. 

fprintf — ファイルへの出力に対し， printf と同じ機能を持つ 
関数です. 

f s c a. n f —ファイルからの入力に対し， scanf と R じ機目爸を持 
つ関数です. 

この他にもいくつか関数がサポートされていますが，重要なものは上記の 
9つで，これらをうまく使うことでほとんどの処理が可能です. 

さて，バッファードファイル10の考え方で一番重要なのは，文字が中心に 
考えられている事です.つまり，上記の関数はすべて，英数字などを格納し 
たアスキーファイルを扱う事を前提に考えられており， COM ファイルなどの 
バイナリファイルを扱う際には必ずしも便利ではありません. 

例えば，アスキーファイルではそのファイルの終端文字として，コントロ 
—ル Z(1AH) が用いられますが，この文字が現れるとファイルの終了とみな 
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す関数 ( fgets ) とそのまま 1 AH として返す関数 ( getc など)がありますか 

ら，使用する際には注意が必要です. 

さて，このバッファード 10 関数を使う場合，必ず bdsdo.h という標準へ 
ッダーファイルを先頭でインクルードしなければなりません. bdscio. h の中 
ではこれらの関数で読み書きのために使うバッファーを確保する構造体を宣 
言していますので，これにより，バッファード10関数を利用する時には， 

F I LE i 〇 bu f ; 

などと宣言すれば自動的にバッファードファイル10用のバッファー，及びそ 
の状態などを記憶しておくフラグ•カウンタなどのメモリが確保されます. 
何が何バイトで，といった事を考える必要はありません. 

リスト 2-3- 3は ディ スタからファイルを読み，それを行ごとにナンバー 
を付けて別ファイルとして格納するブログラムです.コマンドラインから， 


A〉fnum f i 1 e 1 f i 1e 2 


とすると， filel の内容に行番号を付力卩し， file 2 として出力します. 

入力のためにファイルからの行入力関数 fgets ， 出力に書式つきファイル出 
力関数 fprintf を利用している点に注意してください. 


リスト 2-3-3 fnum. c 行番号付加プログラム 


1 

2 

^include 

<bdscio.h> 

3 

FILE fpin; 


4 

5 

FILE fpout; 


6 

main (argc,argv) 


7 

int 

argc; 

8 

Q 

char 

/ 

»argv[]; 

y 

10 

\ 

char 

buf[2003; 

11 

12 

int 

lent; 
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if (argc != 3) printerr ('Usage: fnuni infile outf ile *)； 

if (ERROR == fopen (argv[1],fpin)) printerr (’Can’t open.*); 

if (ERROR == fcrea t(argv [2], fpout)) printerr CCan’t create/); 

lent =1; 

while (fgets (buf,fpin)) 

{ 

if (ERROR == fprintf (fpout/%5d ： ¥t%sMcnt, buf)) 

printerr CWrite error .’）； 

lcnt++; 

} 

fclose (tpin )； 
fclose (fpout )； 


printerr (nsg) 

char *msg; 

{ 

printf (msg); 
exit 0; 


[3 ， 4 行 ] 

ここでバッファード 10 関数を用いるための入出力用ファイルを宣言してお 
きます.ここでは入力用として fpin ， 出力用として fpout の2つを宣言してい 
ますが，このように入出力のどちらにも同じ書式です.なお，この宣言は関 
数の外側で行なわれていますので，どの関数からも自由にアクセスできる外 
部変数になります.関数の内部で宣言すれば口ーカル変数として，その関数 
の内部でだけ利用可能となります. 

[10 ， 11 行 ] 

10行めでは1行を格納するための行バッファーを200バイト宣言していま 
す. fgets では1行の長さをチヱックしませんので，もしこれより長い行がフ 
ァイル中に存在すると暴走する可能性があります.一般にはこれより長いも 
のはめったにありませんが，信頼性が特に要求されるような用途にはもっと 
確実な方法を選ぶ必要があります. 

11行で宣言している lent は行カウンタです.1行読むごとにインクリメン 
卜されます. 


401314151617181920212223242526272829303132333435 
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[13 行 ] 

13行めで行なっているのはプログラム起動時のコマンドラインからの引数 
チェックです. fnum . c は必ず2つのファイル名を指定する必要がありますか 
ら，もしそれ以外（すなわち argc が3以外）であったら， Usage : 以下を表 
示して終了します. printerr はそのためのメッ セージを 表示してプログラム 
を終了する関数です. 

[15 ， 16 行 ] 

15，16行ではファイルの入出力のため，2つのファイルをオープンします. 
fpin を入力用に， fpout を出力用にしています.ここで， ERROR というのは 
定数で， 一1 を示しています.一般にこのような定数は# define 文で宣言し 
なければなりませんが，非常に一般的な定数は bdscio . h の中で宣言されてい 
るので，宣言しなくても利用できます.このような定数には他に， 

NULL 0 

EOF 一 1 

OK 0 

TRUE 1 

FALSE 0 

CPMEOF Ox 1 a (コントロール Z の アスキーコード） 

などがあります. 


[18 行 ] 

行カウンタ lent の値を1に初期化します. 


[19 行 ] 

fgets 関数により fpin で指定されているファイルから1行を読み込み ， buf 
へ格納します.かつもしその戻り、値が0以外の場合には1丨の中を繰り返し 
ます. fgets は CR，LF (改行コード）があるとそれを LF (¥ n ) だけに置き直 
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し，かつ最後に C 言語での文字列終端文字として0を追加します. 

なお，ファイルが終了した場合， fgets は0を返します. while の条件は0 
以外（真）の場合ループし，0 (偽）の場合，ループを終了しますので，こ 
のような場合には都合が良くなります. 

[21 ， 22 行 ] 

プログラムの本体部分です. fgets で読み込んだ1行に行番号を付加して， 
fpout のファイルに出力します. fprintf は書き込みエラー時に 一 1を返します 
から，ここで ERROR と比較し，エラーなら強制終了します. 

fprintf などは良く ERROR チェックなしでも利用されることがあり，その 
ような場合にはファイルの書込みチェックはされません.これは書き込む位 
置が1箇所でなく複数の箇所になる場合など，プログラムサイズが大きくな 
り，動作速度も遅くなりますので，意識して省かれるわけです.しかし，書 
き込み エラーは しばしば発生するトラブルであり，やはり エラー チェックは 
すべきでしよう. 


[23 行 ] 

ラインカウンタをインクリメントします. 

[25，26行] 

プログラムの終了処理です.入力用ファイル fpin ， および出力用ファイル 
fpout をクロー ズします. 


[29 〜 34 行 ] 

文字列を表示してプログラムを強制終了する関数 printerr です. 
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実行例 2-3-4 fnum . c の実行例 


A>fnum 


Usage: fnum inrile outfile 
A>fnum fnum>c fnum.n 

A>type fnum.n 

1:^include く bdscio.h 〉 

2： 

3: FILE fpin; 

4: FILE fpout; 

5: 

6 ： main(argc, argv) 

(後略） 

A> 

|2-4 文字列の処理 

BDS C に限らず， C 言語では文字列の処理が BASIC などと異なるので，最 
初のうちはとまどう事もしばしばです. BASIC では文字変数は文字列への先頭 
アドレスと文字数という2つの要素で記憶されている場合が多いのですが， 

C ではあくまで文字列は文字型 ( char ) の配列としてのみ扱われ，文字列の 
最後に0 ( 16進のゼロ ） を置き，この終端文字と先頭アドレスで扱います. 

この方法は文字列をアドレス （ 2バイト）だけで受け渡しできる点で有利で 
すが，文字列操作では必ずしも便利ではなく，文字列の先頭何文字かを取り 
出したりする場合には文字を1字ずつ追いかけなければならないため実行が 
遅くなるという欠点も持っています.また，文字列の中に0 (16 進のゼロ） 

を使うことはできませんから，プログラムオブジェクトなどのバイナリ デ ー 
夕を扱う場合には特に不便です.一般に C 言語でバイナリ データを 扱うブロ 
グラムを作成する場合，自分でいくつかの文字列操作用関数を作る必要があ 
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ると考えてよいでしょう.本項での文字列操作とは一般の文字や文章の操作 
であると考えてください. 

く文字列処理の基本ファンクシヨン〉 

文字列をそのまま別の場所に移したり，付け足したり，比較したりする場 
合は非常に多いものです.これらには次のような関数を利用します. 

(1) strcpy (string copy; 

文字通り，文字列をコピーする場合に用います. 

strcpy (t,s) 

とした場合， s の文字列を t にコピーします.この場合， t も s も文字列へ 
のアドレスで， t は s をコピーできるだけの十分な長さを持っている必要が 
あります. 

(2) strcat (string concatenate ( 文字列連鎖）） 

文字列を連結する場合に使います. 

strcat (s,t) 

とした場合， s の文字列の後に t を付加します. s は t が後に付加されるだ 
けの十分な長さを持っている必要があります. 

リスト 2-4 - 1 string, c と実行例 

# include <bdscio.h> 

main (argc,argv) 

int argc ； 

char *argv[]; 


char buf [100 ] ； 
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strcpy ( buf , argvtl ]) ; 
strcat (buf ， argv [2 ]) ； 
printf (buf); 


〈実行例〉 

A>string ABC DEF 
ABCDEF 


fl>string JKLMN OPBRST 

JKLMNOPQRST 

A> 

リスト 2-4-1 は， コマンド ライ ンの 入力した2 つの 文字列を合成して表 
示します. 2つ入力がない場合のチェックは行なっておりませんので必ず， 
string XXXX YYYY というフォーマットで実行してください. 

⑶ strcmp ^string compare) 

文字列同士を比較し，同一かどうかをチェックします. 

s t r cmp ( s 1 , s 2 ) 

とした場合，一致すれば0，一致せず最初に異なった文字に ついて， sl > s 2 
なら正の値， sl < s 2 なら負の値を返します. 

リスト 2-4-2 strcmp. c と実行例 

# include <bdscio.h> 

main (argc,argv ノ 

int argc; 

char 本 argv 口； 

{ 

if (strcmp (argv[1],argv [2]) ) 
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printf (*not same") ; 

else 

printf ("same ;； 


〈実行例〉 

A>strcmp ABCDEFG ABCDEFG 

same 

A>strcmp ABCDEFG ABCDEF 

not same 

A> 


リスト 2-4-2 は，コマンドラインから入力した2つの文字列が等しいか 
どうかをチェックし，等しければ“ same ”， 同じでなければ“ not same ” と表 
示します. 

(4) strlen (string length ； 

文字列の長さを求めます.終端文字の〇は含みません. 

この関数はボインタの項で解説した Strlen 2と全く同じものですので，リ 
スト2-1-1， 2- 1-2 を参照してください. 

これらの関数は簡単なもので，自作してもほとんど数行でできるようなも 
のばかりですが，非常に重要です.これらを使ってみるのが，文字列処理を 
マスター する第1歩でしょう.これら以外にもいくつかの関数がありますが， 
その使用瀕度は上記の4関数程高くはありません. 

くユーティリティ関数〉 

文字列処理関数は非常に便利なものですが ， BAS 1 C に慣れたかたなどは， 
かなり物足りなく感じる場合も多いものです.そこで，標準関数にない BASIC 
ライクな関数をいくつか紹介しておきます.文字列というものがどう扱われ 
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どのようにすれば文字列処理が可能なのか良いサンプルになると思います. 
特にここで紹介する関数が便利なのは， BASIC のプログラムを C に移植する 
場合です. 


char * left ( str , len ) 
char 氺 str ; 

1 n t 1 e n ; 

BASIC の LEFT $ 関数に対応する関数です • str に文字列へのアドレスを 
セットし， len に文字列の先頭からの長さを指定すると，文字列 str がその文 
字数までで打ち切られ， str のアドレスが戻り値として返ります.元の文字列 
は失われることになりますから注意してください. 

なお，指定の長さより与えられた文字列の方が短ければそのまま返ります. 

リスト 2-4-3 left, c と実行例 


林 include <bdscio.h> 


main(argc,argv) 


int argc; 

char *argv[]; 


printf (left (argvTl], 3 )) ； 

\ 

N - 左から 3 文字を切り取る . 


left(str,len) 


char 

*s tr; 

int 

len; 

char 

本 s; 

s = str; 

while 

(len - -） 

{ 



if (!*s++) return (str); 
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*s = * ¥0* ; /* string end code ♦/ 

return (str); 


〈実行例〉 

A>left ABCDEFG 
ABC 

fl>left JKLHNOP 
JKL 

A> 

サンプルプログラムでは，コマンドラインから入力した文字列を先頭3文 
字で切り取り，表示します. 


char * righMstr , len ) 
char 氺 str ; 

1 n t 丄 e n ; 


BASIC の RIGHT $ 関数に対応する関数です. str に文字列へのアドレスを 
セットし， len に文字列最後からの文字数をセットするとその位置のアドレス 
を戻り値として返します.文字列の途中から使うことになりますので，元の 
文字列は失われません. 

指定の長さより文字列が短かければ文字列はそのまま戻ります. 

リスト 2-4-4 right.c と実行例 

# include く bdscio.h> 

main (argc,argv ノ 

int argc; 

char *argv[]; 
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printf (right (argv[l] ,3 ))； 

} \ 

x - 右から 3 文字切り取る . 


right(str,len) 


char 

*s tr; 

int 

len; 

int 

i ； 

char 

*s; 


s = str ； 
i = 0 ； 

while (*s++) i ++； 

if (i く len) return (str )； 

while (len—) s--; 

return (—s); 


〈実行例〉 

A>right ABCDEFG 
EFG 

/bright JKLMNOP 
NOP 

A> 

リスト 2-4-4 はコマンドライン引数の文字列の右3文字を切り取ります. 


char *mia(str,pos,len) 
char 氺 str; 
i n t po s ; 

i n t len; 
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BASIC の MID $関数に対応する関数です . str に文字列へのアドレスをセ 
ットし， pos に切り取りたい文字の先頭からの位置， len に長さを指定すると， 
目的の文字列へのアドレスが戻り値として返ります.元の文字列は失われま 

す. 

なお，指定の位置より文字列が短ければヌルストリング（終端文字だけで 
内容のない文字列）が返り，指定の長さより文字列が短かければ，途中で打 
ち切られた文字列となります. 

リスト 2-4-5 mid . c と実行例 


^include く bdscio.h 〉 


main (argc,argv) 

int argc; 

char *argv[]; 

{ 


printf (mid (argv[l] ,2,3 )) ； 


-2 文字めから 3 文字切り取る . 


mid(str,pos,len) 

cnar *str; 

int pos,len; 

{ 

int i ； 

char ; 

i = 0 ； 

while (pos—) 

if (!*str++) return (—str); 

s = --str; 
while (len--) 

if (!*s++) return (str); 

*s = ’¥0 ，； 
return (str); 
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〈実行例〉 

fl> fnid ABCDEFG 
BCD 

fl> mid JKLMNOP 
KLM 

A> 

リスト 2-4-5 はコマンドライン文字列の2文字めから3文字分を切り取 
って表示します. 


| 2-5 構造体の使い方 

構造体も C 言語の特徴の 1つです . BASIC などには無い概念なので，最 
初はとまどいますが，決して難しいものではなく，むしろプログラムを読み 
やすく，判りやすくしてくれます. 

ここではサンプルとして，役には立ちませんが簡単な電話帳プログラムを 
作成してみましょう.名前•年齢•電話番号の3つがデータで，2人分のデ 
一夕が入力されるとその内容を表示して終了します. 

このブログラムは構造体を使わなくても実現できますので，比較の意味で 
まず配列で作成したものを説明します. 


リスト 2-5-1 memlistl.c と実行例 
^include <bdscio.h> 

^define MEMBERS 2 
main () 

char name [ MEMBERS ] [25]；] 

int age [ MEMBERS ]; 丨別々の配列. 

char tel [ MEMBERS ] [15]； J 

int i ; 
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for (i=0; i く MEMBERS; i++) 

{ 

printf (*name-> - ); 
gets (name[i]); 
printf ("age - >")； 
scanf &age[i ])； 

prin tf ("tel ->•); 
gets (tel [i]); 

} 

for (i=0; i く MEMBERS ; i 十 +) 

{ 

printf (*%s (%d) tel ： Zs¥n", name[i], age[i], tel [i ])； 


〈実行例〉 

A>MEMLIST1 


name->T>MITARAI 
age - >31 

tel -> 045- 91 卜 7427 
name->R.MITARAI 
age - >26 

tel - > 045-911-7427 

T.MITARAI (31) tel:045-911-7427 
R.MITARAI (26) tel:045-911-7427 

A> 

判りにくい部分は全くないと思います.名前を入れる配列 name ， 年齢を 
入れる配列 age ， 電話番号を入れる配列 tel の3つを用意します.勿論 name ， 
tel は文字列ですから文字列の配列で2次元配列となります. 

これらの配列に対し，文字列の行入力関数 gets と入力関数の scanf を用い 
て値をキーボードから入力し， 2人分入れるとその内容を画面に出力します. 
人数は MEMBERS で，2が指定されていますからこの値を変更すれば何人 
にでも対応させることができます. 

このようなプログラムは BASIC などでは常套手段であり，配列要素の順 
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に，関連の ある データを格納す る 方法は良く用いられます. しかし，ここで 
name , age , tel というのは相互に関係の深い配列であるにも拘わらず，完全 
に独立しているた め， その 関係が 明確ではありません.そこで C 言語ではこ 
の3つの配列をひとまとめにし， name [ ]， age ， tel [] という型の異なる複 
数の要素を一つの要素として扱えるようになっています.これを構造体とい 
います. 

構造体を用いて書き直したものをリスト2-5 - 2に示します. 

リスト 2-5-2 memlist 2. c 

^include <bdscio.h> 
ttdefine MEMBERS 2 
struct member 


char 

name [25]; 

char 

age; 

char 

tel[15 ]； 


}； 

wainO 

( 

struct nember 1ist[MEMBERS ]； 
int i ； 

for (i=0; i く MEMBERS; i++) 

( 

printf (*nawe-> , ); 
gets (list[i].name); 
printf Cage ->•); 
scanf (*%(!*,&1 ist[i].age); 
printf ("tel - >•); 
gets (list[i], tel); 

} 

for (i=0; i<MEMBERS; i++) 

{ 

printf ("%s (%d) tel:%sVn*,1ist[i].name,list[i].age,list[i].tel); 

} 

} 

struct から main () の前までが，構造体タグ member の定義であり，以降 
struct me mbe r list ; 
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とするだけで， member 型の要素を持った構造体の宣言ができます.例のよう 
にさらにそれを配列にしておけば，構造がはるかに明確に指定できます. 

プログラムそのものは長い文字列を書くことになりますので，ちょっと見 
ずらく感じられますが，リストが長くなってくるとはるかに判りやすくなり 
ます. 

このように複数の配列を対応させて扱うような用途には，構造体は非常に 
便利なものです. 

なお，構造体の要素への読み書きは 

list , name :構造体変数 list の要素 name 

1 i s t . age :構造体変数 list の要素 age 

1 i s t . t e 1 :構造体変数 list の要素 tel 

のように，変数名と要素名の間をピリオドでつなぎます.ポインタにより間 
接的にアクセスする場合には， 


struct member 氺 pnt ; 
p n t =1 i s t ; 


などとしておいて， 


p n t 一 〉 n a me 
pnt —〉 age 
pnt —〉 tel 

のように一と〉の 2 つの文字で結合させます.このボインタによる間接アク 
セスは混乱を招きやすいのですが，次のように考えれば良いでしょう. 
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list 


age 

tel 


pnt 


( 間接参照 ) 


図のように pnt という変数の内容（アドレス）が指しているのが member 型の 
( list という名前の）構造体です . list というのは名前であると同時にこの構造 
体の先頭アドレスを示す定数です.つまり，直接に定数から読み書きする場 

ノ〇.には， 


1 1 s t . n a me 

とすれば良く，間接的に（ポインタ）変数の内容から参照する場合には 

p n t —〉 n a me 

となるわけです.ところが文字列の受け渡しなどでは，19 ページの リスト 
2-1-1 などのように引数が配列（の先頭アドレス）であることを宣言する 
と，その引数については間接的な読み書きにもかかわらず 


などのようにあたかも直接的な読み書きであるかのように書くことができま 
すが，構造体ではこのような記述ができません.初心者が誤りやすいポイン 
卜ですので，構造体の場合は直接参照か間接參照かを意識し，プログラムを 
書き分けるようにしてください. 

配列に比べると，構造体は特殊な操作をするような印象を与えますが，よ 
く考えてみると関係のあるものを集めてブロック単位で扱う方がはるかに自 
然で合理的であることが納得できると思います. 


























BDS C 特有の問題点 


本章は BDS C , a _ C において，問題になりやすい部分について解説し 
ます.その多くはこれらのコンハ。イラが C 言語のサブセットであること 
から起るものです. 

ただ，これらの欠点があるから BDS C , ひ - C は良くないという結論は 
短絡的で，どのようなコンパイラでも固有の問題というものはあるもの 
です.これらの欠点のため，コンパイルが速い，ハ•グが少ないという， 
大きなメリットを忘れてはならないと思います. 

なお，本章のような内容を読まれて，「このような機能削除版のコンパ 
イラで果して正しい C 言語の学習ができるのだろうか」と思われるかも 
知れません.あらかじめ断言しておきますが ， BDS C , ひ - C で覚え，経 
験した C 言語のノウハウが他の C コンパイラで役に立たないということ 
は決してありません.ご安心〈ださい. 
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■ 3-1 コ ンパイ ルエラー 

BASIC は言語仕様上エラーの検出がたやすく，有名な Syntax error から 
始まり，多くの誤りを完全に指摘してくれます.ところが， C 言語はフリー 
フォーマットであるため，行というプログラム分割単位を持たず，コンパイ 
ル時に起るエラーがどこでどのようにして発生したか判定しにくいという欠 
点があります. 

エラーメッセージ として最も頻出するのは文末に セミコロン （；） をつけ 
忘れる 


Missing semicolon 

だと思います.これは既に読者の方々も経験ずみなのではないでしようか. 

また，エラーメッセージが予想以上に多く発生することもしばしばありま 
す.これは大抵の場合，はじめにあるエラーが連鎖的に後のエラーを招いた 
もので，多くは最初のエラーを取り除くと消えます. 

リスト 3 - 1 - 1 大量のエラーが発生する例 

^include く bdscio.h> 

mainO 

-ここにカーリーブレイス I が活ちている. 

int i,s; 

char f ； 

for (s=2 ； s<=100; s++) 

{ 

f=0; 

for (i=2 ； i<=s-l;i++) 

{ 

if (s%i==0) 
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15 ： 

16 ： 

17 ： 

18 ： 

19 ： 

20： 

21 ： } 

〈コンパイル例〉 

A>cc f terror 1 
BD Software C Compiler vl.50a (part I) 

5 ： Missing from formal parameter list: i) 力 — リーブレイス | が 

5 ： Missing from formal parameter list : s ないため変数の宣言が 

6 ： Missing from formal parameter list: f J j へてエフ—になる. 

21：Unmatched right brace- - 1 l が対応せず i が i つ多いため 

21 行めで エラーとなる. 

これと 5 ， 6 行めのエラーを考慮 

As すると 4 行めのミスは容易に判明 

する . 

エラーの対処方法は場合，場合によって異なり，その都度エラーメッセー 
ジを解析していくことになりますが，基本的には次のような誤りが多いと思 
われます. 


(1) | と|のアンバランス 

C 言語では1が出現するたびに字下げを行ない，1により，もとの桁位置 
に戻すようにすると，丨！のバランスが崩れるのを防ぐことができます.こ 
れについては本書のリストのほとんどが実施していますので，参考にしてく 
ださい. 


(2) ( と）のアンバランス 

これは BASIC でも同じです.複雑な式などではどうしても誤りやすいので 
数えてみた方が良いでしょう.なお， 

if ( ( kansuul () && i 1 agl )| | ( kansuu 2 ( ) && f 1 age 2 )) 


f = l ； 

break; 

} 

} 

if ( f ==0) printf (1 d ¥ t *, s ); 
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などと複雑な条件式などでは，フリーフォーマットである事を積極的に利用 
して， 


if ( ( kansuul () && f 1 a g 1 )I I 
(k a n s u u 2 ( ) && i 1 a g 2 )) 

のように条件を複数の行に分けて記述することができます.このように記述 
すると単純にコンパイルエラーの発生を防げるだけでなく，ロジックがわか 
りやすくなるという特徴もありますから，試してみると良いでしょう. 

(3) タイプミス 

if，for などは短いのでミススペルをすることはまずありませんが， while ， 
switch，default などは誤りやすいので気をつけてください.誤って覚えてい 
たりすると意外と悩むものです. 

(4) 文字列のダブルクォーテーションマーク 

文字列は必ず“ ”で囲まなければなりませんが，最後の”を忘れることが 
あります.これは通常 

String too long (or missing quote ) 

というメッセージが出るため，すぐに修正することができますが，# if ， # 
endif など で 条件 コンパイルを 指定していると エラ ー発生行を誤って表示する 
場合があります. 

リスト 3-1-2 string too long エラーがでない場合 

1: ^include <bdscio.h> 

2： 

3 ： ^define DEBUG 0 
4 ： 

5 ： main0 
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I — ここに文字列の終了を示す 
1 ダブルクオーテーシヨン”が 

printf ("it is in main0.); 
test 0; 


test 0 


#if DEBUG 

printf (*it is in test ()*); 

林 endif 


〈コンパイル例〉 

A>cc f:error2 

BD Software C Compiler vl. 50a (part I) 

13 ： Conditional expr bad or beyond implemented subset 

^ -このエラーメッセージは 13 行めの# if の使い方が 

A > 正しくないという指摘. 

しかし，それは正しくない . このエラーは 7 行めの ” 
不足のため引き起こされたもの . 

このエラーメッセージは a-C でも同様に出現する. 

10行めで落した”が100行めの# if でエラーを発生させた場合など，非常 
に苦しむことになります.もし# if で発生したエラーがあったら，文字列の 
”を落していないかチェックしてください. 

コンパイルエラーは最初は非常に多いものですが，慣れるとその発生瀕度 
も減ってきますし，修正の要領も判ってきます. 99%のエラーはそのメッセ 
ージによってどういうものか判定できますから，少しずつエラーを減らすよ 
うにしていけば良いでしょう. 

| 3-2 BPS C で削除されている機能 

BDS C および Qf-C は C 言語の仕様を一部削除したサブセット版です.通 
常の使用ではあまり問題になることはないのですが，本質的な仕様の点で次 


67890123456 

1i IX 1A 1i IX IX IX 
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ftinclude <bdscio.h> 


main 0 


int a = 100;’ 

static int b = 20 ();， 


-int のデフオルトが自動変数 (auto) 
になっている場合，どのようなコ 
パイラでもこの行はエラーになる . 


スタテイ 
るため， 


printf Tint a=%d¥n*,a) ; 初化 k 能が働く： 
printf (’static int b=%d¥n*, b); 


■ ク変数と明示されてい 
-般の c コンパイラでは 


〈コンパイル 例〉 

A>cc initl 

BD Software C Compiler vl.50a (part I) 


のような制約がありますから，注意しなければなりません. 

(1) 実数 ( float ), 倍精度整数 ( long ), 倍精度実数 （ double ) が使えない. 

(2) スタティック変数がない. 

(3) 変数の初期値設定機能（イニシャライザ）がない. 

BDSC では 実数， 倍精度 整数に ついては関数パッケージ Uloat，long) が 
用意されており，関数の形で用いることができます（ひ -C には付属していま 
せん）.しかし，他の C コンパイラ用に作成されたプログラムなどをこの 関数 
を用いて BDS C に移植するのはかなり大変な作業です. float 関数の具体的 
な使い方については， 3-4 項をご覧ください. 

(2)， （3) は C 言語の本質的な部分であり，非常に残念なことです . BDS C 
は完成されたオブジェクトを ROM などに焼き 込み， 制御機器などへの 組み 
込み用ソフ トウェアを作成することができますから，この機能を付加するこ 
とが難しく，削除されているのだと思います. 

しばしば， C 言語のサンプルとして，次のようなものがあります. 

リスト 3-2-1 イニシャライザを用いたプログラムとコンパイル例 


123456789 
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5 ： Missing semicolon 

6 ： Undeclared identifier: static^* - static は bds c ではサポート 

6 ： Missing semicolon 


A> 

非常に簡単なプログラムですし，他の コンパイ ラでは大抵 コンパイ ルするこ 
とができますが，上記のようにエラーがでてしまいます.このような場合は， 
ローカル変数，あるいは外部変数を用いて変数を定義し，プログラム先頭で 
その変数に初期値を設定するようにします. 


リスト 3-2-2 初期値の設定プログラム 


5 

6 

7 

8 

9 

10 

11 


ttinclude <bdscio.h> 

main 〇 

{ 

int a；| 

int b ;l 

a 


100;、 

b = 200；, 


一変数は必ず宣言だけ行な- 


printf ("int a=%d¥n",a); 
printf (*int b=%d¥n",b); 


-変数へは値を代人するようにすると 
(意味あいは異なるが)初期化が達成される. 


fl>cc init2 

BD Software C Compiler vl.50a (part I) 
35K elbowroom 

BD Software C Compiler vl.50 (part II) 
32K to spare 

A>clink init2 

BD Software C Linker vl.50 
Linkage complete 
43K left over 

A>init2 
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リスト 3-2-3 配列を初期化するプログラム 

林 include <bdscio.h> 

main 0 

{ 

int i; 

for (i=0; i<8 ； i++) 

printf ("%4d %04x¥n",i,decode(i)); 


decode (n) 


int n; 

static int array [] = {1 ， 2, 4, 8,16,32, 64, 128} ; 
return (array[n]); 


A>cc init3 

BD Software C Compiler vl.50a (part I) 


int a=100 
int b=200 

A> 

この方法は実行時間がかかる，オブジェクトのサイズが大きくなるという 
点でエレガントな方法ではありません.しかし，他の C コンパイラにかけて 
も問題ありませんし，ローカル変数に初期値を設定し忘れることも無くなり 
ます. 

それより，問題は大きな配列などに初期値を設定したい場合です.リスト 
3-2- 3 は 0 から 7 をデコードし， 1 〜 0x80 を戻り値として返す関数の例で 
すが，スタティック変数の初期値を設定可能であれば，次のようにプロダラ 
ムすることができます. 


12345678901234567 

1 IX IX IX 1IX IX 11 
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リスト 3-2-4 配列に外部変数を用いた例 
林 include く bdscio.h 〉 

int array[16]r - 外部変数として配列を宣言 

mainO 

{ 

int i ； 

setarrav () - 配列に値耷代入しておく 

for (i=0 ； i<8 ； i++) 

printf (*%4d %04x¥n",i,decode(i)); 


decode (n) 

int n ； 

{ 

return (array[n]); 


setarray ()- - 配列に値を代人する関数 

{ 

array[0] =1 ； 
array[l]=2 ； 
array[2]=4 ； 
array[3]=8; 
array[4]=16 ； 


15 ： Undeclared identifier: static- - static 変数はサポートされ ていない. 

15 : Need explicit dimension size^ ― 配列宣言では [] の中に必ず要素の数が必要 . 
16 ： Undeclared identifier: arrays - 1 5 行めのヱ ラーで array が登録さ 

れなかったため，連鎖的に発生し 
た エラー. 

fl> 

この場合は高々8通りですから， switch 文と case 文を用いてもプログラミ 
ングできますが，もっと多くなってくるとそうもいきません.そこで，ブロ 
グラムの実行開始時に外部変数に値を書き込み，関数中でその配列を参照す 
るような方法をとることもできます.その例をリスト3 - 2 - 4に示します. 


123 45678910111213141516171819202122232425262728 
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A> 

実際 BDS C で本格的なプログラムを作成する場合，最大のネックになる 
のはこの初期値の設定で，場合によってはアセンブラを使った方が良い時も 
あります（アセンブラによるテーブルピックアップはプログラムとしては非 
常に簡単です）. 

また， int などの整数は，この方法でも十分ですが，文字列（文字配列）の 
初期化はなかなか難しい問題です.マニュアルには strcpy 関数を用いるとあ 
りますが，文字列が多い場合には無駄が多いので，賛成しかねます.それよ 
りも，プログラムの構造自体に関わりますが，あらかじめポインタ配列を用 


29 ： array[5] =32; 

30 ： array[6] =64; 

31 ： array[7]=128; 

32 ： } 


A>cc init4 

BD Software C Compiler vl.50a (part I) 
35K elbowroom 

BD Software C Compiler vl.50 (part II) 
32K to spare 

A>clink init4 

BD Software C Linker vl.50 
Linkage complete 
43K left over 


A>init4 


12 480000 
00001248 
0 0 0 0 
0 0 0 0 


0 12 3 4 5 6 7 


0 0 0 0 
0 0 0 0 
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リスト 3-2-5 文字列へのボインタ配列を作る例 


^include <bdscio.h> 
chai *array[3];*~ 


mainO 


int i; 
setarray 0 


- 文字列へのポインタ配列の宣言 . 


-ポインタ配列に文字列の 
先頭アドレスをセットする . 


for (i=0; i<3 ； i++) 

printf (’string %d=%s¥n*,i,array[i]); 


setarray () 


array [0]= 
array [1] : 
array [2]= 


’Good morning."; 
•Good afternoon/ 
'Good night.*; 


A>cc init5 

BD Software C Compiler vl.50a (part I) 
35K elbowroom 

BD Software C Compiler vl.50 (part II) 
32K to spare 


A>clink init5 

BD Software C Linker vl.50 
Linkage complete 
43K left over 


A>init5 


意しておき，最初にその配列に文字列の先頭アドレスをセットするようにし 
ておくと文字列はプログラムの一部として埋め込まれるので効率的だと思い 
ます.ただし，この方法は文字列への書き込みができません（元の文字列よ 
り短ければ不可能ではありません）. 


123456789012345678 

IX 11 IX IX IX IX 11 ii 
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string 0=Good morning, 
string i=Good afternoon, 
string 2=Good night. 

A> 


ぃずれにせよ，本来の C 言語では悩む必要も無い部分なので，将来の機能 
拡張を望みたいところです. 


( 3-3 プリプロセツサの機能 

プリプロセツサとはプログラムをコンパイルする前に文字列の置き換えを 
行なったり，条件コンパイルなどによるソースリストの削除を行なう機能で， 
C 言語を使いこなす上で，非常に重要なポイントの1つです • 

BDS C ， のプリプロセッサには次のようなものがあります. 


# d e f i n e 
#u n de f 

# i nc1u de 
#i f 

#i f de f 
#i f de f 

# e 1 s e 

# e n d i f 


これらのうち， # define は文字列の置き換え，林 include はファイルの取り 
込み，それ以降は条件コンパイルのために用いられます.上記以外のブリブ 
ロセッサは BDS C では削除されています.また，プリプロセッサではあり 
ませんが，コメントもコンパイラの重要な機能です. 

(1 ) # define 

# define は次のような書式で用いられます. 
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A> 

定義名と定義値の間はスペースが区切りであるため，スペースを含む文字列 
を定義名として指定することはできません.また，この方法で指定した数値 
は数値をシンボル名で参照するわけではなく， 


^define 定義名定義値 
一番多い使い方は次のように文字列に数値を設定する例です. 

リスト 3 - 3 - 1 数値展開の例 

^include <bdscio.h> 

#define MAXNUM 10 

main 0 

{ 

int i; 

for (i=0; i く MAXNUM; iH) 

printf (*%d¥n*,i); 

} 

A>definel 

0 


123456789 


MAXNUM ” 一 > ，，10 
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と別の文字列に置き換えるだけです•ここで MAXNUM は大文字になってい 
ますが， C 言語では定数は大文字で記述するのが一般的で，小文字でも別に 
動作には問題ありませんが，インデント（字下げ）と共に C 言語の標準プロ 
グラミングスタイルの1つです. 

次に， ^ define は，単純な文字列置き換えだけでなく，引数を持ったマク 
口展開も行なうことができます. 

リスト 3-3-2 マクロ展開の例 

林 include く bdscio.h 〉 

林 define lowcase(x) (x+(’a’A’）) 

main 0 

{ 

char 本 s; 

s = "ABCDEFGHIJKLMNOPQRSTUVWXVZ"; 
while (*s) putchar (lowcase(*s++)); 


く注意〉 

■ これは例なので，このマクロ定義 
では大文字以外の文字が X に設定 
された時には問題が発生する . 


A>define2 

abcdef ghij klmnopqrs tuvwxyz 大文字が小文字に変換される • 

fl> 

マクロ展開と言えども単なる文字列置き換えに過ぎないということには注 
意する必要があります.数値以外に関数呼出しや演算式を書く可能性がある 
部分には，引数自体を （） で囲み，評価の順序などが誤らないようにする必 
要があります.リスト3-3_3は （） を付けなかったため，誤った答となる 
例です. 
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リスト 3-3-3 誤ったマクロ展開の例 
ttdefine minus(n) -n 

mainO 

{ 

printf (*5$d f , minus (10+2)); 


A>cc define3 -p 

BD Software C Compiler vl.50a (part I) 


main () 

{ 

printf ("%d" ， _10+2); 

^ - minus(10+2 ) がこのように 

展開されてしまう. 

36K elbowroom 

BD Software C Compiler vl.50 (part II) 

32K to spare 



A>clink define3 
BD Software C Linker vl.50 
Linkage complete 
43K left over 


A>define3 

-8"*-答は誤り. 

A> 


コンパイル 時の 一 p はプリプロセツサを通ったソー スフアイルが どのように 
変化したかを確認するために設けられているォプ ション で，例のように実際 
に展開された様子が画面に出力されます.この例では， 
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mi nu s ( 10 +2 ) 

i 

一10+2 

と展開されてしまいます.一 （10+2) としたいわけですから，次のように 
修正しなければなりません. 

リスト 3-3-4 正しいマクロ展開の例 
林 define minus(n) _(n)_ - n をカッコで囲んでいる点に注意 . 

mainO 

{ 

printf ("%d" , minus (10+2 ))； 


A>cc aer ine4 -p 

BD Software C Compiler vl.50a (part I) 


mainO 

{ 

printf (*%(!•,- (10+2)); 


-() つきで展開されてぃる . 


36K elbowroom 

BD Software C Compiler vl.50 (part II) 
32K to spare 

A>clink define4 
BD Software C Linker vl.50 
b:Linkage complete 
43K left over 


A>define4 

-12"*- 答は正しい . 

A> 
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慣れるまで時間がかかるとは思いますが，リスト 3-3-3 のような例は見落 
しがちなので，注意してください. 


⑵ # undef 

# imdef は# define による定義を抹消する場合に用います. 

^ define により同じ名前を定義すると後のものが優先されますが，入れ子 
になるわけではなく，# undef すると前の定義は残りません. 


リスト 3-3-5 # undef の例 


mainO 


^define DEF 10 

printf rDEFl=%d¥n*,DEF); 
^define DEF 100 

printf (*DEF2=%d¥n*,DEF); 
#undef DEF 

printf CDEF3=%d¥n*,DEF); 


A>CC UNDEF -P 

BD Software C Compiler vl.50a (part I ) ハ 

main 0 

{ 

printf (*DEFl=%d¥nM0)r 
printf (*DEF2=%d¥nM00); 
printf ( - DEF3=5!d¥n*,DEF); 




砬後に定義された内容が 
有効になる. 


定義が抹消されているた 
ラーと なる. 


A> 


8 ： Undeclared identifier: DEF 
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このようなプログラムを作ることはあまりありませんが，知っておくと便利な 
こともあるでしよう. 

(3) # include 

# include はファイルの取り込みを指定しますほとんどの BDS C およびひ 
- C のプログラムでは，プログラム先頭に 

^include <bdscio.h 〉 

というへッダーファイルの取り込みを記述します.この中にはいくつかの外 
部変数の宣言，構造体などの定義が記述されており ， BDS C で用意されて 
いる標準関数を使う場合には必ず指定する必要があります- 

この bdscio.h は一般の C 言語では stdio . h ( Standard Input Output , 標準入 
出力）という名前になっている場合が多いので，他の C 言語に移植する場合 
には変更する必要があります. 

次に， # include では，書式に2種類あり， 

# i n c 1 u d e 乂 f i lename ノ 

# i n c 1 u d e ” filename” 

の両者があります.ファイル名をく >で囲んだ場合にはログインディスク（プ 
ロンブトが A >の場合はドライブ A ) から捜され，“”の場合はソースファ 
イルと同じディスクから捜されます.実際のプログラム開発の場合，コンパ 
イラ本体はドライブ A に置いておくことが多いので bdscio . h など共通のへッ 
ダーファイルも一緒にしてく >で囲み，それ以外ユーザー側で作成したへッ 
ダーファイルなどはソースファイルなどと一緒に異なるディスクに置き，“’’ 
で囲むようにすると良いでしよう. 

なお，く〉，“”の双方ともファイル名にドライブ （A :， B : など）を記述 
するとそちらが優先されます. 

目的のファイルが見つからないとそこでコンパイルは中断されます. 



(4) 条件コンパイル 
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# if ， # ifdef , # ifndef , # else , # endif はすべ て 条件 コンパイルを 指定す 
るプリプロセッサですが、，次のように用います. 


#i f 式 

# e 1 s e 

# e n d i f 

あるいは 

# i f de f 識別子 

# e 1 s e 

# e n d i f 

あるいは 

# i f n de f 識別子 

# e 1 s e 

# e n d i f 


# if の場合は式の値が真 （ 0 以外）であれば# else までをコンパイルし，そ 
れ以降# endif までをスキップします.偽（〇)なら# else 以降# endif までをコ 
ンパイルします.# ifdef , # ifndef もほとんど同じです.# ifdef では識別子 
(名前）が# define によって定義されていれば，# else までをコンパイルし， 
# endif までをスキップします. # ifndef は # ifdef の逆になります. 
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いずれの場合も# else は省略することが可能です.また，これらの指定は 
ネストすることができます. 

リスト 3-3-6 条件コンパイルネストの例 

#define TEST1 1 

main 0 

{ 

#if TEST1 

printf ("#if TEST1 corapiled.¥n*); 

#ifdef TEST2" - test2 は定義されていない • 

printf (*#ifdef TEST2 compiled.¥n*); 

#else 

printf ("TEST2 林 else compiled. ¥n*); 

ttendif 
林 else 

printf (*TBST1 #else compiled.¥n*); 

林 end if 


A>cc ifdef -p 

BD Software C Compiler vl.50a (part I) 


1 


7 

10 

11 

15 


main 0 


printf 

printf 


(• 林 if TEST1 compiled.¥n*) 
CTEST2 #else compi led. ¥n*); 


この 2 つだけが 
有効となる. 


} 


36K elbowroom 

BD Software C Compiler vl.50 (part II) 
32K to spare 
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A>clink ifdef 

BD Software C Linker vl.50 
Linkage complete 
43K left over 


A>ifdef 

#if TEST1 compiled. 

TEST2 Jtelse compiled. 

A> 

なお，この条件コンパイルはデバッグ時などデバッグ用プログラム部分を指 
定しておき，プログラム完成時に設定を変えるだけで削除したい場合に用い 
ます. 


(5) コメント 

コメントは文字列/*から* /までをコメントとみなし，コンパイル時に 
無視します.コメントはネストすることが可能で， 

/ * 

/ * c 〇 mme n t * / 

*/ 

という形式で使うこともできます. 

| 3 4 浮動小数点演算 

整数演算しかできない BDS C にとって，小数点以下の値を含んだ数や， 
あるいは大きな数を扱う事のできる浮動 / J 激点数演算ノ、。ッケージ （ float ) は魅 
力あるものです.これらはうまく使うと非常に効果的にプログラムを作成す 
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ることができます. 

しかし，関数の形でしか利用できませんから，互換性の点では他の C コン 
パイラにかける可能性がある場合には問題外となります.あくまで BDS C 
で実数を 使いたい 方が用いるものと考えるべきでしょう. 

しかし，数個の実数計算がある，あるいは平均点の結果だけ小数点表示を 
行ないたいといった場合にはかなり救われることも事実で，恩恵は少ないと 
は言えません. 

さて， float 関数を説明する前に，一言コメントしておきます. 

float 関数には オーバーフロー •アンダーフローを 抑止する機能がありませ 
ん.一般には演算を行なって扱える数値の範囲を越えた場合，計算を打ち切 
って，扱える数のうち最もその値に近い値を返すものが多いのですが， 
float 関数の場合，全くデタラメな値を返してきます.これは致命的なバグで 
す. 

一般には，非常に小さい値，あるいは大きな値を扱う可能性がある場合に 
は，適当な時点で計算を打ち切り， オーバーフロー，アンダーフローが 起ら 
ないような形でプログラミングする必要があります.ちなみに，扱える値は 
絶対値が約0.340282 e 39〜〇.293874 e — 38の範囲の値と0です. 

これらのパッケージは BDS C の開発者であるゾールマン氏の作成ではな 
いことも，メンテナンスの点で問題を残しているようです.ひ - C が float ， 
long ハ。ッケージを含んでいないのもそんな所に原因があるのかも知れません. 


(1) float 関数の使い方 

float の数値は BDS C では5バイトの char 型変数配列で表されます.例え 
ば，2つの実数の加算を行なう場合，リスト3- 4-1 のようにします. 
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リスト 3-4-1 実数の加算と操作例 


^include <bdscio.h> 

main 〇 

{ 

char b [ 5 ] ; I だ：ィトの—■己列で 

char c[5];J 

atof (a, "1.23") r - a=1 . 23 

itof (b,1) - b=l 

fpadd (c, a, b) - c = a+b 

printf C%f+%f=5：r ,a,b,c); 


A>cc ftestl 

BD Software C Compiler vl.50a (part I) 
35K elbowroom 

BD Software C Compiler vl.50 (part II) 
32K to spare 


A>clink ftestl-f float 
BD Software C Linker vl.50 
Linkage complete 
39K left over 


A>f tes tl 

1.230000 +1.000000=2.230000 
A> 

ここで， 

atof 文字列を実数に直す関数 

itof int 型の数値を実数に直す関数 

fpadd 実数の加算をする関数 
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です . BDS C では実数は5バイトの文字配列でしか表わすことができず， 
じかに数値を記述したりすることはできません.定数であろうとも，必ず文 
字配列を用意し， atof ， itof などの関数を用いて値をセットする必要がありま 
す.また，リンク時には例のように，必ず 

clink f i 1 e n ame —f float 

とし，リンクファイルの後に 一 f オプションを付加してください.これがな 
いと正しいリンクを行なうことができません.特に， float パッケージの中に 
は float 版の printf 関数が含まれており，このようにしないと通常の print f 関 
数が誤ってリンクされてしまうことになります.この場合，例のように ％ f 
を 用いて 実数を画面に表示することができなくなりますので，注意してくだ 
さい. 

なお，一般の^;では 

c=a+b ; 

とでも記述すれば良いプログラムが実数を用いた場合には例のようにかなり 
面倒な処理を行なわなくてはならなくなります.非常に良く間違うポイント 
ですので，十分注意してください. 

なお， float パッケージの関数の戻り値は演算結果を格納したバッファーの 
アドレスです.従って，次のような使い方は可能です. 

リスト 3-4-2 関数の戻り値をそのまま使う例 

林 include <bdscio.h> 
raainO 


char 

char 

char 


a [5] 
b[5] 
c[5] 
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atof (a, *1.23 *)； 
itof (b,1); 

printf (*%f+%f=%f• ， a ， b,fpadd(c,a,b)); 

[ -関数の戻 1 )値を 

そのまま利用する. 


A> cc ftest2 

BD Software C Compiler vl.50a (part I) 
35K elbowroom 

BD Software C Compiler vl.50 (part II) 
32K to spare 

fl>clink ftest2 -f float 
BD Software C Linker vl.50 
Linkage complete 
39K left over 


A>ftest2 

1.230000 +1.000000=2.230000 
A> 


このように，関数の戻り値をそのまま使うと，一般の演算の場合のように 
表現できるので，リストが短く，見やすくなります.また ， float パッケージ 
の内部では実数演算用の専用のメモリを確保しており，いったんそこへ値を 
コピーしてから演算しますので，入力と出力に同じ文字列を指定することも 
可能です.（そのかわり， ROM 化などの用途には使えません.） 

リスト 3-4-3 入力と出力に同じ文字列を指定した例 

^include <bdscio.h> 
main() 


char 

char 


a [5]; 
b[5]; 
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atof (a, *1.23*); 
itof (b,1); 

printf ("%f+%f=*,a,b); 
printf ("Xf *, fpadd(a, a, b ))； 

暴 ハ。ハン、/、 

1 t -人力と出力に同じ文字配列 

が指定されている. 

A>cc_f_test3 

BD Software C Compiler vl.50a (part I) 

35K elbowroom 

BD Software C Compiler vl.50 (part II) 

32K to spare 

A>clink ftest3 -f float 
BD Software C Linker vl.50 
Linkage complete 
39K left over 

A>f test3 

1.230000 +1.000000=2.230000 
A> 

ただし，ここで注意しなければならないことは，実数 a は fpadd ( a ， a ， b ) の 
演算により a + b の内容に置き換えられてしまうことです.つまり， 

lpadd(a,a,b) a =a +b 

であることを念頭におくべきです.さもないと次のような誤りを犯すことに 
なります. 

リスト 3-4-4 fpadd の使う位置を誤った例 
ttinclude <bdscio.h> 


main 〇 
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char a [5]; 
char b[5 ]； 

atof (a/1.23 ，）； 

itof (b,1); 

printf (*%f+%f=%f*,a,b,fpadd(a,a,b)); 一この行に誤りがある . 


A>cc_j_test4 

BD Software C Compiler vl.50a (part I) 
35K elbowroom 

BD Software C Compiler vl.50 (part II) 
32K to spare 

fl>clink ties t4 -f float 
BD Software C Linker vl.50 
Linkage complete 
39K left over 


fl>ftest4 

2J305M+1- 230000 

^ - a の値はすでに 2.23 になっている. 

A> 


BDS C , ひ - C では，関数への引数は最後から評価されます. 

fprintf ( ,, %f+%f=%f M / a / b f fpadd(a / a,b)); 

4 t t _ 

—最初に評価される 

- 2番めに評価される 

-3番めに評価される 


従って，この例では fpadd の関数が先に実行され， a の値が a + b に変化し 
てしまってから最初に記述されている a を評価することになるため，例 3-4 
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- 4のようにおかしなことになるわけです.例3 - 4 - 3のように printf 文を分 
割するか，別の配列に出力しなければなりません. 

なお，関数への引数が複数ある場合，どういう順序で評価するかは C 言語 
仕様上定まっていません . BDS C では最後から行ないますが，他のコンパ 
イラでは異なる順番で評価する場合があるため，このように引数の評価順序 
に依存するプログラミンダは好まし〈ありません. 

⑵ fplong . h 

float 関数を使う場合，実数が5文字の文字列であるということはかなり大 
きな制約となります.プログラム中でも， 

f u nc t 1 〇 n ( ) 

I 

char a [o j ; 


という形で宣言すると，この文字配列 a は果して通常の文字列として用いる 
のか，実数として用いるのか判りにくくなります.そこで，次のような形で， 
実数が宣言できると便利です. 

float a ; 
float k ,1; 

このため， 実数を 5 文字の文字列から構成される構造体で表し，その構造体 
名を float とする ヘッダー ファイルを用意しました. この ファイルでは同時に 
いくつかの関数についてマクロ定義を行なっているので実行がやや高速にな 
る他，倍精度整数を用いる long パッケージの 関数についても同様な定義を行 
なっていますので， 

—1 〇 ng a ; 

—1 〇 ng k ,1; 
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という形で倍精度整数が宣言できます. long は関数名と同じなので，使えな 
いため， — long になっています. 

リスト 3-4-5 fplong . h 


/* float 鼸 aero function ♦/ 


•define fpnorn(opl) 

fp(O.opl.opl) 



正規化 

翁 define fpadd(r,opl,op2) 

(fp(l t r,opl,op2),r) 

/* 

r <- opliop2 */ 

加算 

Idef ine fpsub(r,opl,op2) 

(fp(2,r,opl,op2),r) 

/* 

r <- opl-op2 */ 

減算 

Idefine fpnult(r,opl,op2) 

(fp(3,r,opl,op2),r) 

/* 

r <• opl*op2 */ 

乗算 

Idefine fpdivCr.opl, op2) 

(fp(4. r, opl, op2) ,r) 

/* 

r <- opl/op2 */ 

除算 

tdefine ftoa(r,op) 

(fp(5,r,op),r) 

/* 

float to ascii 本 / 

実数—文字列変換 

/* long 觀 aero function 

*/ 




Idefine itol(r,op) 

long(0,r,op) 

/* 

int to long 傘 / 


tdefine lconpCopl.op2) 

long (1,opl,op2) 

A 

if (opl==op2) 0 

比較 




opl>op2 ?1:-1 ；*/ 


idefine ladd(r,opl,op2) 

long (2.r,opl,op2) 

/* 

r <- oplfop2 */ 

加算 

tdefine lsub(r>opl,op2) 

long(3,r,opl,op2) 

/* 

r <- opl-op2 */ 

滅算 

Vdef ine Uul(r,opl,op2) 

long(4.r,opl,op2) 

/* 

T <- opl*op2 */ 

乘算 

tdefine ldiv(r,opl.op2) 

long(5»r,opl«op2) 

/* 

r <- opl/op2 */ 

減算 

•define lnod(r,opl.op2) 

long (6»r,opl,op2) 

/* 

r く - opl%op2 */ 

剰余 


struct .float 

{ 

char _fpdia[5] : 

}； 

idefine float struct .float 


struct _lg 


}； 

■define .long 


char _lgdiH[4] : 
struct _lg 


なお，このヘッダーファイルを用いた場合，引数については次のようにポ 
インタで宣言します. 


function (a) 
float * a ; 


また， fplong . h を用いるもう一つのメリットは，この中で定義されている関 
数に限り， Qf - C でも用いることができるということです.これは， float，long 
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関数の本体部分は標準関数として deff 2. crl の中に格納されているためです. 

このへッダーファイルの使用例については以降のサンプルを参考にしてく 
ださい. 

⑶ E 角関数 

sin 関数は非常に一般的に用いられる関数ですが，マクローリン展開 

式 3-4_6 


sinx = 2 (- l) n (2n+i yy 

x 3 , x 5 _ X 7 

を用いる事により，容易に関数値を求めることができます.ただ，このよう 
な式で近似値を求めるのは float パッケージにはかなり荷が重いようです.特 
に，項の値が小さい場合，アンダーフローが起りやすく，プログラミングに 
はかなり気を使います. 

ここで紹介する sin 関数はある程度以上値が小さくなるとそこで計算を打 
ち切り，アンダーフローを防ぐようにしています. 

なお，ここでは前述の fplong . h のへッダーファイルを用いています. 


char *sin(put , deg) 
char * p n t ; 
i n t d e g ; 


pnt には求めた値を格納する5バイトの文字配列の先頭アドレスを指定しま 
す. deg は角度ですが，ここで与える値は実際の角度に10を掛けたものです. 
すなわち，この関数では 0.1 度単位で指定できるということになります.こ 
れはリストの28行めで設定されている TEN の値を10から100に直せば，0.01 
度単位で利用できる sin 関数になりますが，整数は一 32768〜32767の値しか 
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取れないので，一327.68度から327.67度までしか使えない sin 関数となりま 
す.適当にこの値を変更してください. 

リスト 3-4- 7は10度単位に sin 関数値を表示するプログラムです.結果 
を見れば判るように単精度ですので余り精度は高くありません.なお，展開 
式の10項までで計算を打ち切るようになっていますが，演算結果がある値 
( CALCMAX ) より/ J 、 さくなると計算を打ち切ります. 


リスト 3-4-7 sin. c と実行例 


1 


6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 


轉 include <bdscio.h> 

林 include *fplong.h 
番 define CNTMAX 10 
ma in 0 
{ 

float s, t; 
int i ； 

printf CSIN VALUE:¥n *)； 

printf Cangle sin¥n *)； 
for (i=0; i<=1800; i+=100) 

{ 

sin (t ， i); 

printf C%3d %15.10f¥〆 ， i/10, t); 


sin(r,data) 

float 

int 


*r; 
data; 


float 
f loa t 


i, isign; 

s ， x ， b ， e ， f ， g ， xx ， h ， k ， sign ， xy; 

ONE, RD, TEN, CALCMAX, RDD ドー！ 

これらは変数だが実際には定数と 

/* Set values */ して扱っている.それを明示する 

itof (TEN,10 )； 

atof (RD,*0.3046e-3 *)； /* RDD*RDD */ 

itof (ONE,1); 
atof (CALCMAX, •le-3(T); 


ために大文字で記述してある. 
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33 

atof(RDD,* 0.0174533*); /* 3.1415927/180 ♦/ 


34 





35 

/本 Variables initialize ♦/ 



36 

isign 

=-1 ； 



37 

itof (sign,isign); 



38 

itof (x, data); 



39 

fpdi v 

(x.x.TEN); 



40 

fcopy 

(xy, x); 



41 





42 

fpmult(s,xy, RDD); /* s is 

result */ 


43 

fcopy 

(k,s); 



44 





45 

itof (e,1); /* kaijo 

variable 

本 / 

46 

itof (g,1); /* kaijo 

• result 

*/ 

47 

itof(f’l); 



48 





49 

fpmult 

(xx,x,x); 



50 

fpmult 

(xx,xx ， RD); /* xx = 

x*x*RD 

*/ 

51 





52 

/* Calculation 

*/ 



53 

for (i=2 ； i<CNTMAX;i++) 



54 

{ 




55 


fpadd (e,e,ONE); 

/* e=e+l 

本 / 

56 


fcopy (g,e); 

A g=e 

本 / 

57 


fpadd (e,e,ONE); 

A e=e+l 

本 / 

58 


fpmult (g, g, e); 

/* g=g*e 


59 





60 


fpmult (h,xx ， k); 

/本 h=xx*k 

*/ 

61 


fpdiv (k ， h,g); 

/* k=h*g 

*/ 

62 





63 


if (fpcomp (k,CALCMAX)==-1)break; 


64 





65 


fpmult (f,k,sign )； 



66 


fpadd (s, s, f); 

/* s=s+f 

*/ 

67 


isign = -isign; 



68 


itof (sign,isign); 



69 

} 




70 





71 





72 

fcopy 

(r,s); 



73 





74 

} 




75 





76 

fcopy (t, o) 




77 

char 
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78 ： { 

79 ： int i; 

80 ： for (i=0; i<5; iH) *t++=*o++; 

81：} 

82 ： 


〈実行例〉 

A>sin 


SIN 

VALUE: 

angle 

sin 

0 

0.0000000000 

10 

0.1736483000 

20 

0.3420208000 

30 

0.5000 017000 

40 

0.6427912000 

50 

0.7660509000 

60 

0.8661 )359000 

70 

0.9397083000 

80 

0.9848297000 

90 

1.0000290000 

100 

0.9848453000 

no 

0.9397389000 

120 

0.8660807000 

130 

0.7661086000 

140 

0.6428597000 

150 

0.5000794000 

160 

0.3421047000 

170 

0.1737365000 

180 

0.0000897514 


A> 


リストの中で用いられている fcopy という関数は実数へ値を代入する関数 
です. 


f c 〇 p y ( a , b ) 

float ホ a , 氺 b,* 


で，実数 b を実数 a に代入します. 
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リスト 3 - 4-9 cos. c と実行例 

林 include <bdscio.h> 

林 include "fplong.h* 

^define CNTMAX 10 

main 0 

{ 

float s; 
int i; 

printf CCOS VALUE:¥n*); 
printf ("angle cos¥n*); 
for (i=0; i く =1800; i+=100) 

{ 

cos (s,i); 


char *cos(pnt,deg) 
char 氺 pnt; 
int deg; 


sin 関数と使いかたは全く同じです.こちらも同じくマクロー リン展開式， 


式 3-4-! 


cos X = 2 ( — 1 ) 


n X 2n 


n-o (2n) ! 

^ X 2 . X 4 X 6 


十 - 


を用いていますが， 一般には， Sin 関数， cos 関数のどちらかが判れば， 

sin x = cos (x —900) 
cos x = sin (x + 900) 


を利用すれば良いでしょう.リスト 3-4- 9は cos 関数値を10度単位で表示 
するプログラムです. 


12345678901234 

11111 







15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 
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printf(*5!3d 5S15.10f¥nM/10, s) ; 


cos (r, da ta ； 


float 

本 !^ 

in t 

da ta; 

\ 

in t 

i, isign; 

float 

s,x ， b,e ， f,g ， xx,h,k ， sign; 

float 

ONE ， RD ， TEN ， CALCMAX; 

/* Set values 

*/ 


itof (TEN,10 )； 

atof (RD/0.3046e-3 *)； /* RDD*RDD */ 

itof (ONE,1); 

atof (CALCMAX/le-30 ，）； 


/本 Variables initialize 本 / 
isign =-1; 
itof (sign,isign); 
itof (x,data); 
fpdiv (x,x,TEN); 


itof (s,1); /* s is result */ 

itof (e,0); /* kaijo variable 

itof(g,1); /* kaijo result 

itof (f,1); 
itof(k,l )； 


fpmult (xx,x,x); 

fpmult (xx,xx,RD); /* xx = x*x*RD 


/* Calculation */ 

for (i=2;i<CNTMAX;i++) 

{ 

fpadd (e,e,ONE); 
fcopy (g,e); 
fpadd (e,e,0NE); 
fpmult (g ， g,e); 

fpmult (h,xx,k); 
fpdiv (k,h,g); 


/* e=e+l 
/* g=e 
/* e=e+l 

/* g=g 本 e 

/* h=x) (本 k 
/* k=h 本 g 
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60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 


if (fpcomp (k ， CALCMAX) == -1)break ； 


fpmult (f ， k ， sign); 

fpadd (s ， s,f); /* s=s+f */ 

isign = -isign ； 
itof (sign,isign); 

} 

fcopy (r,s); 


fcopy(t, o) 

char 本 t ， 本 os 

{ 

int i; 

for (i=0; i<5; i++) *t++=*o++; 


〈実行例〉 

A>cos 


COS VALUE: 
angle cos 

0 1.0000000000 

10 0.9848086000 

20 0.9396960000 

30 0.8660328000 

40 0.7660572000 

50 0.6428066000 

60 0.5000258000 

70 0.3420528000 

80 0.1736874000 

90 0.0000448172 

100 -0.1735991000 

110 -0.3419686000 

120 -0.4999482000 

130 -0.6427380000 

140 -0.7659996000 

150 -0.8659878000 

160 -0.9396652000 

170 -0.9847926000 

180 -0.9999997000 


A> 
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さて， sin ， cos 関数があれば tan 関数は 


tan x = 


sin x 
cos x 


で求めるのが簡単ですが， sin ， cos 関数と異なり ， tan (90°) は⑺となるため， 
ある値以上では実数がとりうる最大の値を返すように工夫しなければなりま 
せん. 

以上，三角関数のサンプルを紹介しましたが，述べたように，アンダーフ 
ロー，オーバーフローする場合があるために，完全なプログラムを作ること 
はできません.プログラムを変更した場合には誤った値を発生してしまう可 
能性があることに注意してください.また，これらの関数はアルゴリズムの 
問題もあり，精度は4桁程度で処理速度も遅くなっています.実際に利用さ 
れる場合にはあらかじめ許容できるかどうか確認してください. 

なお，最後に申し添えておきますが，信頼性の高いソフトウェアを作成す 
る場合，実数演算を必要とするなら ， BDS C を用いるにはかなり工夫する 
必要があります. 






















































































































































































































































































































































































_ 第 4 章 

CP / M サンプルプログラム 


BDS C, Q-C で作成されるプ□グラムで最も多いものはなんといって 
も CP/M 用のユーテイリテイプログラムです.あれば便利といったものか 
ら，言語，高度なアプリケーションに至るまで，多くが BDSC で作成さ 
れています. 

本章では， CP/M に付属している SUBMIT を披張した exsub(expanded 
submit) プログラムを紹介し，説明します. 
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J 4 - 1 拡張サブミットコマンド @. com 

CP / M にはバッチ処理用のコマンドとして， SUBMIT が用意されており， 
これにより，一連の作業を自動化することができます. 

例えば， test , c というプログラムを開発する場合，あらかじめバッチ処理 
の順番を記述したファイル (. SUB ファイル）を作っておくと， SUBMIT コマ 
ンドにより，自動的に com ファイルまで作成することが可能になります. 

リスト4 - 1 - 1 SUBMIT フアイルの例 


type cc , sub ， - サブ ミッ トフアイルの抗張子は必ず . sub とする. 

cc $1 -x $2 


clink $1 
fl>su broit cc 
A>CC TEST -X 



サブミットフアイルの名前. 

$1に設定する文字列. 

一 x はエラー発生時にサブミット動作を打ち切る 
オプションで，このような場合にはつけておいた 
方が良い. 


BD Software C Compiler vl.50a (part I) 
36K unused 

BD Software C Compiler vl.50 (part II) 
32K to spare 


A>CLINK TEST 

BD Software C Linker vl.50 
Linkage complete 
44K left over 


^ 自動的に行なわれる. 


A> 


また， SUBMIT の実行を助ける XSUB というコマンドもサポートされてお 
り， プログラム中のキーボード入力を SUB ファイルから行なうことも可能 
になっています.このように， SUBMIT は便利なコマンドですが，いくつか 
の欠点があり，使いづらい点があります. 

そこで，より使いやすさを考慮した拡張 SUBMIT コマンドを作成しまし 
たのでご紹介したいと思います.このプログラムは SUBMIT を包含していま 
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すので，今迄の SUB ファイルもそのまま利用することができます. 

完成した exsub . com は com という名前にリネームしておくと，タイピン 
ダが楽になります.また， exsub をサポートするサブプログラム/. com を利 
用するとさらに有効に利用することが可能です. 
exsub の特徴は以下のようなものです. 

(1 ) 改行だけを入力することができる 

例えば， PIP コマンドで複数のファイルを転送する際に， 

A>P IP 

ホ A := TEST.C 
* A := B : PROG.ASM 

* (改行のみ） 

A > 


などと， PIP コマンドを起動したあとで，キーボードから転送ファイル名 
を指定することができますが， SUBMIT コマンドでは XSUB を併用しても 
改行だけを記述することができず， PIP コマンドを終了させることができな 
いため，必ず 

PIP A : =B ： TEST.C 
PIP A ：= B ： PROG.ASM 

として 2 回 PIP コマンドを起動させる必要がありました. 

(2 ) 間接的なサブミット呼出しが可能 

SUBMIT ではその SUB ファイル中でさらに SUBMIT を実行すると SUB 
ファイルの残りの部分は無効になりました. exsub ではこれを改善し，あたか 
もサブルーチンのように別の SUB ファイルを実行させることができます. 
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(3) コントロールコードの入力が可能 

- と大文字の A — Z を用いて，などとすればコントロールコードの入力 
が可能です.ただし，行先頭でと記述してもリブートさせることはでき 
ません. 

(4) 文字列置き換え可能 

ファイル中の文字列$0〜$9をコマンドラインで指定した文字列に置き換 
えることができます.例えば， TEST . SUB というファイルに対し， 

A>@ TEST RIE MITARAI 

とすると， 


$ 0 — TEST 
$ 1 ^ RIE 
$ 2 — MI TARAI 

に置き換わります.この機能は SUBMIT と同じです. 

(5) 特殊文字の入力が可能 

$$ — $， ▲ という文字置き換え機能を持っています （ SUBMIT では， 

$$ — $ のみ）. 

なお， SUBMIT の補助 コマンド， XSUB も @. com で利用できます. 

く SUBMIT ■の原理〉 

この プログラムを理解するためには ， SUBMIT どの ような原理で行なわ 
れるかを知っておく必要があります. 


まず，例えば，サブミットファイルとして 
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pip a : =b : t e s t . c 

ren program. c = tes t . c 

という内容を持つファイル ( test , sub ) があると， SUBMIT は$1などファイ 
ル中の文字列の処理をしてから 1 行 128 バイトずつに展開し，最後の行から 
順に並べ換えたものを$ $ $. SUB というファイルに書き込みます. 

実際に実行してみると次のようになります 

リスト 4 - 1 - 2 SUBMIT の実行 


A>submit test 


A>PIP A:=B:TEST.C 


A>REN PROGRAM.C=TEST.C 
A> 


自動的に行なわれる. 


SUBMIT によって作成された$ $ $• SUB ファイルの中身は次のようにな 
ります. 


リスト 4 - 1 - 3 $$$.SUB の構造 



最初の1バイトは文字数 (16 進, 20文字） 

下線部が文字列となる. 

——文字列の終了は0，それ以降はゴミである. 


0100 

0110 45 53 54 2E 43 0 24 6F 
0120 65 73 74 2E 63 OD OA 1A 


52 4F 47 52 41 4D 2E 43 3D 54 


67 72 61 6D 2E 63 3D 74 
1A 1A 1A 1A 1A 1A 1A 1A 


•REN PROGRAM.C=T 
EST.C.$ogra».c=t 
est.c. 


01301A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 
01401A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 
01501A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 
0160 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 
01701A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 


0180 OF 50 49 50 20 41 
0190 00 24 54 2E 43 00 
01A0 65 73 74 2E 63 0D 
01B01A 1A 1A 1A 1A 1A 
01C01A 1A 1A 1A 1A 1A 
01D01A 1A 1A 1A 1A 1A 
01E01A 1A 1A 1A 1A 1A 
01F01A 1A 1A 1A 1A 1A 


3A 3D 42 3A 54 45 53 54 
24 6F 67 72 616D 2E 63 
0A 1A 1A 1A 1A 1A 1A 1A 
1A 1A 1A 1A 1A 1A 1A 1A 
1A 1A 1A 1A 1A 1A 1A 1A 
1A 1A 1A 1A 1A 1A 1A 1A 
1A 1A 1A 1A 1A 1A 1A 1A 
1A 1A 1A 1A 1A 1A 1A 1A 


2E 43 .PIP A:=B:TEST.C 
3D 74 .$T.C.$ogram.c=t 

1A 1A est.c. 

1A 1A . 

1A 1A . 

1A 1A . 

1A 1A . 

1A 1A . 
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CP / M のシステムはこのドライブ A の $$$. SUB ファイルの最後の1セク 
ター （128 バイト）を読み出してキーバッファーに格納すると同時に， $$$• 
SUB ファイルの最後の1セクターをデリートします. $$$• SUB ファイルは 
SUBMIT ではデフォルトドライブ （ B > の時はドライブ B ) に作成されるので 
すが， CP / M システム側は A ドライブの $$$• SUB しか検索しませんので， 
実際にはログインディスクが A の場合 （ A > のプロンプトが出ている状態） 
にしか利用することができません. exsub ではどのような場合でも $$$.SUB 
はドライブ A に作成されるように改善されています. 

リスト4 _ 1 - 3のようなフォーマットでドフイフ A 上に$ $ $. SUB という 
ファイルを作成すれば，それだけで CP / M システム側が自動的にプログラム 
の運転を行なってくれるわけです.なお，プログラム側でエラーなどの発生 
のため，サブミット動作を打ち切りたい時は $$$. SUB というファイルを消 
去します . BDS C の一 x というオプションはエラー発生の際，サブミットを 
打ち切ってくれますが，実際には $$$. SUB を消去しているだけです. 

なお， $$$. SUB ファイルは通常の使い方ではディスク上に残ることはあ 
りませんが，リスト4-1 _ 3のようなファイルの構造を知るには ， SUBMIT 
のバグを利用して，ドライブ A 以外に $$$. SUB が作成されるようにすると 
デバッガーなどで簡単に内容を見ることができます. 

リスト4 - 1-4に exsub . c のソースリストを示し，詳細に解説します. 

リスト 4 - 1 - 4 exsub. c 


1: /拿*拿聿傘拿*傘幸拿拿拿拿*傘拿傘傘拿拿***拿拿拿拿拿拿拿拿傘*本拿**拿***拿拿拿傘拿*章 

2： 

3 ： EXpanded SUBnit program (exsub.c) 

4 ： 

5 ： (c) Armat co.1986/Sep/09 

6 : 

7: A>cc exsub -e 2000 

8 ： A>clink exsub (or 12 exsub) 

9 ： A>ren 9.com=exsub.co^ 

10： 

11 : 拿本章拿本;!;幸本拿本拿拿拿拿拿拿本拿拿章本*拿拿本拿本拿拿本拿*拿章本拿*本本本本*本*拿拿拿拿/ 

12： 

13 ：丨 include <bdscio.h> 

14 ： 

15 ： ttdefine SUBFILE ■A:«$.SUB* 
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16 

#define 

MAXLINE 200^ - もっと長い行数のサブミットファイルを 


17 

^define MAXCHAR127 扱う場合にはここを変更する. 


18 





19 

/* 

sub rue record struct */ 



20 





21 

struct 

subsect- - $$$_ SUB の内部構造を表わす構造体タグ. 


22 


{ 



23 


char cnt ； 

/* how many charactors 

*/ 

24 


char str[127 ]； 

/* string (null terminated) 

*/ 

25 


}； 



26 





27 

FILE 

iobuf; 

/* input file buffer 

*/ 

28 





29 

struct 

subsect secbuf[MAXLINE]; 

/* output buffer MAX=200 lines 

♦/ 

30 

int 

linecnt; 

/* how many lines 

♦/ 

31 





32 

raain(argc, argv) 



33 


int argc; 



34 


char *argv[]; 



35 

{ 




36 


char filename [20] : 

/* filename buffer 

♦/ 

37 





38 


if (argc ==1) 



39 


{ 



40 


printf ("Usage: 9 submitfile argl arg2 •••’)； 


41 


kexi t (); 



42 


} 



43 


strcpy (filename, argv [1]): 

/傘 set fi lenane 

♦/ 

44 


streat (fi lenane, ".SUB*) ; 



45 





46 


if (ERROR == fopen (filenane, 

iobuf)) 


47 


{ 



48 


printf ("Can’t open Xs', fi lenane); 


49 


kexit 0; 



50 


} 



51 


submit (argc-l,4argv[l]); 

/* ex-sub main function 

♦/ 

52 


fclose (iobuf) ； 



53 


writesub 0 ； 

/* write $$$.sub 

*/ 

54 

} 




55 





56 





57 

subnit(ac, av) 



58 


int ac; 



59 


char *av[] ; 



60 

{ 




61 


char buf [150] ； 

/* fgets line buffer 

*/ 

62 


char 拿 pnt; 

/* submit file buffer pointer 

*/ 

63 





64 


lineent = 0; 



65 


while (f gets (buf, iobuf)) 



66 


{ 



67 


del If (buf) ； 



68 


pnt = secbuf [1 ineent].str; 


69 


幸 pnt = 0; 



70 


argexp (ac.av, buf, pnt) ; /* set $1,S2 ... 

*/ 

71 





72 


if ((secbuf [lineent] .cnt = strlen(pnt) )> MAXCHAR) 


73 


{ 



74 


printf (*Line 

overflow at line Xd" , 1 inecnt+1) ; 


75 


kexit 0 ； 



76 


} 
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82 
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99 

100 

101 
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103 

104 
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109 

110 

111 

112 
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127 

128 

129 

130 
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134 

135 

136 
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linecnt++; 

} 

} 

del 1 f (buf) 

char *buf; 

{ 

while (*buf != '¥n*) 

{ 

if (*buf == 0) break; 
buf++; 

} 

♦buf = 0; 


argexp^ac,av,buf ,pnt) 

int 

ac; 

char 

*av 口； 

char 

1 

拿 buf ，幸 pntj 

\ 

int 

chars; 

int 

i； 

int 

strpnt; 

while ¢1) 


strpnt = index (buf,•$•);— - $ があるかどうかのチェック. 

if (strpnt == ERROR) 

{ 

strcopy (pnt.strlen(buf) ,buf); 
break; 

} 

pnt = strcopy (pnt,strpnt,buf) : 
buf += strpnt+1; 
if (isdigit(*buf)) 

{ 

i = *buf-0x30; 
if (i<ac) pnt = strcopy (pnt.strlen(av[i]),av[i]); 
buf++; 

} 

else if (*buf == *$’） 

{ 

*pnt++ = ’$’ ； 
buf++; 

} 

else if (*buf == ’”） 

{ 

*pnt++ = •”； 
buf++; 


strcopy (pnt, chars, buf) /拿 string copy with control charactors 幸/ 

char 拿 pnt, 拿 bufj 
int chars; 

{ 

char c; 

while (chars--) 


なかった場合にはその 
ままコピー. 
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138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 
181 
182 


if (*buf ,A, ) /* control charactor */ 

{ 

buf++; 

c = toupper(*buf++); 

if (c >= 0x40 11 c く 0x60) *pnt++ = c-0x40; 

if (chars--) break； 

) 

else »pnt++ = 拿 1 ) 11 €++? 

} 

*pnt = 0; 
return (pnt); 


writesub0 /* write subnit file */ 

{ 

struct subsect buf; 
in t i; 

int fd; 

if (ERROR != ( fd = open (SUBFILE, 1)) )seek (fd,0,2)； 

else if ( ERROR == (fd = creat (SUBFILE))) 

{ 

printf CCan't creat r$$$.SUB¥* B ); 
kexit (); 


for (i = linecnt - l ; i >=0; i —) 

{ 

if (1!= write (fd,secbuf[i], 1)) 
{ 

printf ("Disk full ; 
kexit (); 


close (fd); 


kexi t() 

( 

unlink (SUBFILE)；- - unlink はファイルを消去する関数. 

exit 0; 


[15 〜17行] 

プログラム中で用いる定数およびファイル名を設定しています.ここで 
MAXLINE というのは変換可能な SUB ファイルの行数を示しています.1行 
につき，128バイト消費しますので200ラインで 25 K バイト必要です.メモリ 
が許す範囲で値を大きく設定すればもっと多くの行数のファイルを処理でき 
るようになります. 

MAXCHAR はサブミットで可能な1行当りの文字数です.変更はできませ 
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ん. 


[21 〜25行] 

subsect という構造体タグを定義しています.$ $ $ .SUB ファイルの構造と 
対応させ，扱いやすくしているわけです. 


[29 行] 

subsect 構造をした構造体配列 secbuf を宣言しています.ここには実際に 
ディスクに書き込む $$$.SUB のイメージがそのまま作成されます. 


[38 〜42行」 

ここはブログラムの利用方法を示す Usage : を表示する部分です.@だけ 
で改行すると，このメッセージが表示されます. 


[43 〜50行] 

ここで，目的の SUB ファイルの名前を文字列 filename に格納し，そのフ 
ァイルを foperi でオープンします. iobuf は27行めで宣言されていますが，バ 
ッファードファイル10のためのバッファーのアドレスです. 

もし，目的のファイルがオープンできなければ，エラーですからそこで中 
断します. 


[51 行] 

このプログラムの実際の処理をおこなう， submit という関数を呼び出しま 
す. 


[52，53行] 

オープンした ファ イルを クロー ズし，メモリ上のサブミットファイルのイ 
メージを実際にディスクに書き込みます. 
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[57 〜79行] 

実際の処理を行なう submit 関数です. 

fgets により1行ずつファイルを読み出し，$1,$2などの処理を行ない 
ながら， secbuf に書き込んでいきます.この時，一旦文字列 buf にその内容 
を書き込み，その長さが MAXCHAR (127) より短いことを確認しながら行な 
っていきます. 


[82 〜91行] 

関数 dellf です. fgets で取り込んだ1行は最後に ¥ n コード （0 AH ) が付 
いています.これを $$$. SUB ファイルの中に書き込んではいけないので， 
削除する関数です. 


[94 〜129行」 

$1，$2などの文字列にコマンドラインからの文字列を展開する関数 argexp 
です.弓 I 数 ac ， av は main 関数への引数とほとんど同じですが，51行めで判 
るように，あらかじめ不要な部分 （argv [0])は除いてあります. pnt が書 
き込みのポインタ， buf が読み込みのポインタで， buf からの文字を読みなが 
ら，$1,$2などの処理を行ない， pnt に書き込みます. 

[132 〜150行] 

通常の strcpy とほとんど同じ機能を持つ関数 strcopy です. cnt という引数 
により，文字列を指定の長さまで コピーし ます.また， △ と A ， ^と Z など文 
字八と一 緒の ア ルフ アベ ット を 実際のコント ロー ルコ ードに直します. 


[153 〜彳74行」 

関数 writesub は submit 関数によりメモリ secbuf 上に展開されている入カフ 
ァイルの内容をドライブ A に $$$. SUB というファイル名で書き込みます. 
この時，最後から書き込む点に注意してください. 
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なお，158，159行で， $$$• SUB というファイルがオープンできれば（存 
在すれば)，そのファイルの最後から書き込むように 

seek ( fd ,0,2) ; 

とし，リードライトポインタをファイルの最後に設定します.また，もし才 
ープンできなければ(存在しなければ)，ファイルを新たに creat しておきま 
す. 

これで，サブミット作業中にこのプログラムが呼ばれた場合，新たな作業 
内容が付け足され，あたかもサブルーチンのように実行されるわけです. 


[177 〜181行] 

エラーなどが発生した時には $$$. SUB をデリートしてから終了します. 

exsub . c はリストの7〜9行にある要領でコンパイル • リンクし，最後に得 
られた COM フアイルを @.c 〇 m という名前にリネームしてください. 


| 4-2 拡張サブミット補助コマンド/. com 

com は SUBMIT の機能をそのまま拡張したものですから，複雑な処理 
を行なわせることはできません.そこで，サブミット動作を補助するコマン 
ドがあると便利です. 

exsub をサポートするコマンド/(スラッシュ）の機能を説明します. 

/. com はプログラム名/の後に スペースを 空けてサブコマンド名を記述す 
ることでサブミット実行時に色々な機能を利用することができるようになり 
ます. 


/ i f file 実行文字列 
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file が存在すれば実行文字列を実行します. 

例えば， exsub . bak というファイルの有無をチェックし， exsub . c をコンパ 
イルするかどうかを制御するなどといった事が可能です. 


/ n i f file 

実行文字列 

file が存在しなければ， 

実行文字列を実行します. 

/ eq 文字列1 

文字列2 実行文字列 

文字列1と文字列2が一致すれば実行文字列を実行します. 

$1，$2などでコマンドラインから文字列を設定すれば， sub ファイルの 

実行をコントロールすることができます. 

/ neq 文字列1文字列2実行文字列 

文字列1と文字列2が- 

一致しなければ実行文字列を実行します. 

/ skip 行数 


無条件で行数分実行をキャンセルします. 

このコマン ドは/ nif などと組み合せて用いられ行数はサブミ ッ トフアイ 


ル内でこの命令以降に記述されている行数が最大です. 
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〈例 〉/ nif file.bak / skip 3 


/ stop 


サブミットファイルの実行を終了します. / skip と同様， / if などと組み 
合せて用いられます. 

通常プログラム開発中には，エディターを用いてプログラムを書き直し， 

さ らに その プロ グラムを コンパイ ルする必要があるわけです が， このとき， 
バックアップファイルとして，拡張子が， bak というファイルが作成されます 
から，次のようなサブミットファイルを作ることができます. 

リスト 4 - 2 - 1 /. com のサンプル 

- もし exsub. bak が存在すれば， 

@ cc exsub —e 2000 を実行する. 

もし exsub2. bak が存在すれば， 

@ cc exsub 2 を実行する. 

'注：このファイルを実行する時はリス、 
、 卜4 — 1 — 1 の cc. sub が必要 . ノ 

これで， bak ファイルがある場合（ファイルを更新した場合）には，コンパイ 
ルが行なわれ，無い場合にはコンパイルが行なわれず，無駄を省くことがで 
きるわけです.なお， この/ • com は @. com ではなく，通常の SUBMIT と組 
み合せて使うこともできます. 

それでは， /. com のソースプログラム ， exsub 2. C について説明します. 

リスト 4-2-2 exsub 2 . c 


/if exsub.bak al cc exsub -e 2000 
/ if exsub2.bak S cc exsub2 <l - 


4 

5 

6 


/* 本本拿本拿傘拿傘聿本拿聿本拿拿傘傘拿拿傘本拿拿拿拿拿傘拿章拿孝本拿本傘本本傘本本章隼傘拿拿拿本 

Expanded SUB 釀 it program (exsub2.c) 

(c) Armat co.1986/Aug/25 
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A>cc exsub2 

A>clink exsub2 (or 12 exsub2 ) 

A>ren /.com=exsub2.con 

本拿本本本本幸:((傘本本拿本拿本本孝拿本本本拿章拿拿拿本本本拿拿拿拿拿幸拿拿*拿拿**♦拿拿拿拿拿/ 

tfinclude く bdscio.h〉 

/本 sub file record struct ♦/ 

struct subsect 

{ 

char cnt; 

char str[127]； 

}； 

#define SUBCOM 1 /* SUBCOM is arg number in conniand line */ 

{(define MAXCHAR 127 

^define YES 1 

Udefine NO 0 

main(argc,argv) 

int argc； 

char *argv[]; 


if (argc ==1) 

printf ( 
printf ( 
printf ( 
printf ( 
printf ( 
printf ( 
kexit 0 

} 

if Cstrcnp (argv [SUBCOM],*IF*)) iffunc (argc,argv, YES); 

else if (istrcnp (argv [SUBCOM], * NI F*)) if fane (argc,argv, NO) ; 

else if (istrcnp (argv [SUBCOM],*EQ*)) equal (argc,argv, YES); 

else if (Istrcnp (argv [SUBCOM] ," NEQ* )) equal (argc,argv, NO)； 

else if (istrcnp (argv [SUBCOM] /SKIP")) skip (argc,argv )； 

else if (istrcnp (argv [SUBCOM],'STOP*)) kexit (); 

else 

{ 

printf C%s.. ?¥n , ,argv[SUBCOM]); 
kexi t ()； 


iffunc(argc,argv.yorn) 


int 

argc; 

char 

*argv[] 

char 

yorn; 

int 

fdi 


Usage: / if testfile coa_and arg...¥n ); 

/ nif testfile coamand arg...¥n # ); 

/ eq stringl string2 coimand arg...¥n'); 
/ neq stringl string2 conaand arg...¥n")； 
/ skip 1ines¥n"); 

/ stop¥n.); 


/* how many charactors ♦/ 

/* string (null terminated) */ 


if (argc く SUBCOM+2) argerr (); 
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fd = open (argv[SUBCOM+1], 0 )； 
if ( (ERROR == fd && yorn == NO) \! 

(ERROR != fd && yorn == YES)) 

nextsub (argc-(SUBCOM+2),iargv[SUBCOM+2 ])； 
if (ERROR != fd) 


nextsub(ct,args) 

int ct; 

char *args[]; 

{ 

struct subsect sec; 
char buf[200 ]； 

int i ； 

int fd; 

strcpy (buf,args [0]) ; 
for (i=l; i<ct; i++) 

{ 

streat (buf ,"")； 

streat (buf,args[i]); 

if (strlen (buf) > MAXCHAR) 

{ 

printf ("Line overflow .. 霧)； 
kexit ()； 


sec.ent = strlen (buf); 
strcpy (sec.str,buf); 

/* write disk file ♦/ 

if (ERROR == (fd = open CA ： $$$.SUBM))) 

{ 

printf (*Not in subMit.*); 
kexit (); 

} 

seek (fd,0,2);4 - ファイをにアペンドするために 

if (1 != write (fd.sec.l)) リニ上ライト f インタをファイル 
| の最後にセット . 

printf ("Disk full •• 簾）； 
kexit 〇 ; 

} 

close (fd); 


equal(argc,argv,yorn) 
int argc ； 

char 本 argv[]; 

char yorn; 

{ 

if (argc < SUBCOM+3) argerr (); 

if (yorn == (!stremp(argv[SUBCOM+l],argv[SUBCOM+2]))) 
nextsub (argc-(SUBCOM+3),&argv[SUBCOM+3 ])； 


close (fd )； 


/* write next command to submit file 


*/ 


skip (argc,argv) 
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123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 
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139 
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141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 
169 


int argc; 

char *argv []； 

int siine; / 傘 how nany skip lines 

if (argc < SUBCOM+1) argerr 0; 
sscanf (argv[SUBC0M+1]/Xd'.isline )； 
delline (sline); 


delline(sline) 
int 

{ 

struct 

int 

int 


/* delete submit lines 

siine; 

subsect buf; 

i ； 

fd; 


if (ERROR == (fd = open CA:$$$.subM))) exit 0; 

buf.str[0] = 0 ； 
buf.cnt = 0 ； 

for (i=l;i<=sline; i++) 

{ 

if (ERROR == seek (fd ， -i ， 2)) 

{ 

printf (.Can’t delete lines *)； 
kexit 0 ； 

} 

write (fd, buf,1) : 

} 

close (fd); 


argerr 0 

{ 

printf ('Strange line ..")； 
kexit O ； 


kexi t() 

{ 

unlink (*A:$$$.SUB*) : 
exit 0 ； 


♦/ 


*/ 


[け〜 26 行] 

ここでは exsub. c と同じ構造体のテンプレートを宣言しています. 
SUBCOM は if, eq などのサブコマンドがコマンドライン中でどの位置に 
あるかを示す数値で，第1番めの引数ですから1となっています. 
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[33 〜42行] 

/だけをタイプし，改行すると操作方法が表示されます. 


[44 〜54行] 

サブ コマンドの 文字列によって，その処理をする関数を呼び出します.新 
しい機能を追加したければ，この部分に付け足せば良いでしょう.勿論，該 
当する コマン ドがなければ エラーで すから， エラー メ ッセージを 表示して終 
了します. 


[57 〜70行] 

サブ コマンド if と nif を 処理する関数です. yorn という引数は “yes or 
no” のことで， if (あれば）と nif (なければ）が両方同一の関数で処理できる 
ように設けられています.この関数中で使われている open は実際のファイル 
読み書きのためではなく，ファイルがあるかないかを確認する目的で行なっ 
ています.ファイルの 有無を 確認するのは， 他に wildexp パッケージなど 用 
いてもできますが，こちらのほうが簡単です. 

条件が合えば，関数 nextsub に必要な文字列の数とポインタ配列の先頭ア 
ドレスを送り，その内容を $$$.SUB に書き込みます. 


[73 〜108行] 

文字列へのボインタ配列の先頭アドレスを args とし， ct 個の文字列を $$$. 
SUB ファイルにアペンドする関数です.引数のフォーマットはコマンドライ 
ンからの引数を受け取る方法と全く同じです. 

一旦 buf に文字列を設定し，それから実際に書き込む sec にコピーしていま 
す.これは展開する文字列をじかに sec に格納してしまうと文字列の長さが 
127文字を越えた場合に暴走する可能性があるためですが，実際にはコマン 
ドラインそのものに127文字以上記述することができないため，不必要とも 
言えます.しかし将来プログラムを変更する際など，不要なトラブルに巻き 
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込まれないですみます. 


[in 〜 119 行] 

文字列の比較をして，もし条件が合えばコマンドラインの文字列を $$$• 
SUB に書き込む eq および neq の処理ルーチンです. 


[122 〜130行] 

skip の処理をする関数です. sscanf で文字列を数値に変換し，デリートす 
る行数を設定して関数 delline を呼び出します. 

[133 〜154行] 

サブミットで実行される処理を無効にする関数 delline です.無効にするた 
めには $$$. SUB ファイルの最後から行数*128バイト分消去してしまえば 
良いのですが ， BDS C の標準関数ではファイルの一部を消去する関数がな 
い （ CP / M の BDOS コールそのものに無い）ため， コマンド 入力が無効にな 
るよう文字数〇となるようにファイルの内容を書き換え，実現しています(デ 
ィスクのディレクトリをじかに変更すれば可能です).そのため， skip が実行 
された場合には skip する行数分，入力無しで実行が行なわれます. 

[157 〜168行] 

入力にエラーがあった場合に実行する関数 argerr, サブミット動作を中止 
する関数 kexit です. 


なお，/の条件判断は実行された時点で行なわれます.@コマンド起動時 
に . bak ファイルが存在していても/コマンド実行時までに消去されたりリネ 
—ムされていれば， . bak ファイルは存在しないと判断されます. 

最後に， prgl . c ， prg 2. c という2つの BDS C ソースファイルと prgasm . 
csm というアセンブラソースファイルが ある場合にそれを コンハ。イルす る 
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SUB ファイルとその実行例を紹介します. 


リスト 4-2-3 ◎と/コマンドの使用例 

A>type prg.sub 

/if prff 1.bak cc prgl - prgi.bak が存在すれば， prgi.c を コンパイル. 

/if prg2.bak cc prg2 -x^ - prg2.bak が存在すれば， prg 2.c をコンパイル • 

/if prgasm.bak 5) zcmr prgasm- - p r g asm b a k が存在す^三 t 

era *.bak 

clink prgl prg2 prgasm 

A>type zcmr.sub 


zcasm $1 

mrasm Sl.aaz ; (drive b)->.bbz 

era $l.asz 

load $1 

era $l.hex 

era $l.crl 

ren $l.crl=$l.com 

； $l.crl is ready 


Z80 二ーモニックで書かれたソースファイル 
(ここでは prgasm.csm ) をアセンブルし， 

BDS C の CRL リンク形式に変換する一:;室の 
処理， 


A>air prg 本 •（： 本 

A : PRG 1 C : PRG 2 C : PRGASM CSM — —ソースフアイル 


fl>dir prg*>bak 

A: PRG 1 BAK : PRG 2 BAK : PRGASM BAK — すべてバックァップ 

ファイルカ f 存在して 
いる. 

A>type prgi.c 


杯 include <bdscio.h> 

mainO 

{ 

char i; 

for (i=0; i<8; i++) 

} 


>• prgl.c の内容 . 

prg2 (i )； 














A>type prg2.c 


4-2 拡張サブミット補助コマンド /. com 


115 


prg 2. c の内容. 

Ifinclude く bdscio.h 〉 ヽ 

prg2(i) 

char 1 ; 卜 

{ 

printf (*original=%d,decode=%d¥n*,i,prgasm(i)); 


A>type prgasnt.esin 


function prgasm 


pop 

pop 

push 

push 

Id 

add 

Id 

Id 

ret 


hi ;return address 

de ; argument 

de 
hi 


hi,table 
hl，de 
1,(hi) 
h,0 


prgasm . esm の内容 0 — 7 
の 値を デコー ドし， 

0 —1 
1—2 

2 — 4 

3 — 8 

4— 16 

5— 32 

6— 64 

7— 128 

に変換する関数. 


table: db 1,2,4,8,16,32,64，128 
endfunc ; 


A>ai prg-* -サブミットの起動. 

- 以下は自動的に行なわれる. 

A>/ if prgl.bak cc prgl-x 


A>CC PRG1-X 

BD Software C Compiler vl.50a (part I) > 
35K elbowroom 

BD Software C Compiler vl.50 (part II) 
32K to spare > 


prgl . bak が存在するので， 
prgl . c がコンパイルされた. 
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A>/ if prg2.bak cc prg2 - x 

A>CC PRG2 - X prg2.bak が存在するので 

BD Software C Compiler vl.50a (part I) 膝：コンン H された . 

35K elbowroom されない） 

BD Software C Compiler vl.50 (part II) 

32K to spare > 


A>/ if prgasm.bak 3 zcmr prgasm 
A>3 ZCMR PRGASM 


prgasm. bak が存在するので 
zcmr というサ十ミットフ 
アイルが起動される . 


A>zcasm PRGASM 

Arina t Z80-CRL preprocessor vl. 0 
Pass 1：End 
Pass 2: 

-Processing the PRGASM function*. 

PRGASM.ASZ is ready to be assembled. 

A>mrasm PRGASM.aaz ; (drive b)->.bbz 
Armat Z80 Assembler - VER 1.3 

(c) Armat co. 1985，1 986 All Rights Reserved. 


No Fatal error(s) 


A>era PRGASM.asz l zcmr 内の処理 . 

fl>load PRGASM 


FIRST ADDRESS 0100 
LAST ADDRESS 031F 
BYTES READ 002B 
RECORDS WRITTEN 05 


A>era PRGASM.hex 
A>era PRGASM.crl 
NO FILE 

A>ren PRGASM.crl=PRGASM. com 
A>; PRGASM.crl is ready 
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A>era *.bak 


A>ciink prgl prg2 prgasm パ cmr の処理が終了すると 

BD Software C Linker vl.50 f 元のの処理に戻る . 
Linkage complete 
43K left over > 


くサブミット動作終了〉 


A>prgi 

originai=0,decode=i 
original=l,decode=2 
original=2,decode=4 
original=3,decode=8 
original=4,decode=16 
original=5,decode=32 


プログラムの実行 


original=6,decode=64 
original=7,decode=128 


A> 




















日本語処理 


BDS c , a - c では基本的に日本語の処理ができるようにはなっていま 
せん.本来，これらは米国で開発されたものですから，文字としては英 
数宇だけが想定されており，文字列処理用の標準関数などもそのままで 
は使うことができない場合がほとんどです. 

しかし， C 言語の基本的な仕様は（日本語，英語などといった）言語 
に左右されてはおらず，新しい関数を作成すれば本格的な日本語処理を 
行なうことが可能です.本章では日本語を使う際のポイントを解説し， 

ならびに実用的な日本語処理関数ノ \°ッケージを紹介します. 
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I 5- 1 BDSC ， a-C の変 5 

BDS C ， Q - C では基本的な文字として英数字だけが考えられていますので， 
カナ，漢字などはソースリストに記述してもコンパイラにかけた時点でアス 
キーコードの MSB が落とされてしまい，英数字に変化してしまいます. 

リスト 5 - 1 - 1 BDS C でカナを用いた場合 


fl>type kanax 
mainO 


printf ( 9 hf)\ オリジ、力 b ノ BDS C デ、，、 1 州エマ t ン ••）； 


A>cc kana -p 

BD Software C Compiler vl.50a (part I) 



mainO 

{ 

printf C6EJ 5X< A EY I BDS C C A J B640>]/);/ 


MSB (最上位ビ 
ット）が落とさ 
れるため，この 
ようになってし 
まう . 


36K elbowroom 

BD Software C Compiler vl.50 (part II) 

32K to spare 

A>clink kana 

BD Software C Linker vl.50 
Linkage complete 
43K left over 

A>kana 

6EJ 5X< A EY I BDS C (TJ B640>] - - 表示はもちろんこのようになる . 


A > 


リスト 5-1- 1の状況では，全く日本語の処理などできなくなります.し 









5-1 BDS c ， a-c の変更 
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かし， strcpy ， strlen などの標準的な文字列処理関数はこの制限を持ってい 
るわけではなく，終端文字の0さえ確実にセットしてあれば MSB は影響を受 
けません.そこで， コンパイル 時にカナ，漢字の MSB がキャンセル されない 
ようにすれば，何とか日本語処理ができるようになります. 

この方法として次のようなものが考えられます. 

(1) コンパイラ 自体を变更し， MSB が キャンセルされないように改造する. 

(2) ソースファイル用のプリプロセッサを作成し，カナ，漢字をコンハ。イラ 
で正しく認識されるような形式に変更する. 

⑴は簡単なパッチ処理で済みますが，本質的な方法ではないため，多くの 
制限が残ります. （2) は処理は完全ですが，別のプリプロセッサにソースファ 
イルを通さねばならないため，コンパイル時の手間がかなりかかります. 

実用的には両者を併用するのが便利でしょう.なお，本項で扱う漢字は， 
シフト JIS コード方式のものです. 

BDS C はコンパイラ本体は cc . com および ， cc 2 • com という2つのプログ 
グラムから成り立っていますが，このうち，文字列の解析などを行なってい 
るのはプリプロセッサ部である cc . com です. cc . com の次の番地の内容を7 
FH から FFH に変更することにより， MSB のキャンセルを防ぐことができます. 

BDS C vl . 50 a 27 C 7 H 番地 

ひ -C vl . 51 27 F 1 H 番地 

操作例 5-1-2 cc . com の変更 

A>ddt cc.coro 
DDT VERS 2.2 
NEXT PC 
3A00 0100 
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-s27c7 一 
27C7 7F If 
27C8 22 . 


DDT などによって 27 C 7 H 番地の内容を 
変更する （ a - C の場合は 27 F 1 H 番地). 


A>save 57 cc.com" - - save コマンドによ 1 )書き換えた内容を h 己録する. 


A>cc kana -p_ - 変更を加えた bds c でテスト. 

BD Software C Compiler vL50a (part I) 


mainO 

{ 

printf オリジ、ナ lb ノ BDS C デ、 n ツ加 : マセン /); 


36K elbowroom 

BD Software C Compiler vl.50 (part II) 
32K to spare 


A>clink kana 

BD Software C Linker vl.50 
Linkage complete 
43K left over 


A>kana 

M)\ オリン、ナ ll ； ノ BDS C T x i\ ツ nr? セン ^- 正しく表示される. 

A> 


この方法は非常に手軽ですが，残念ながら，次のような欠点を持っていま 
す. 

(1) マクロ定義された文字列については有効でない. 

ブログラム内部で 


printf (“漢字テスト”）； 
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mainO 

{ 

printf ("6 )； 


5 ： String too long (or missing quote)- - この場合はコンパイルそのものが 

できなかった . 

A> 

余り変更しないメッセージはじかにプログラム内部に置く場合が多いのです 
が，蛮更が考えられるメッセージなどはあらかじめ# define を用いてマクロ 
定義とする方がはるかに便利ですし，間違いも少なくなります.これはかな 
り大きな制約であると言えます. 

(2) 特別な漢字を用いた場合に文字化けが発生する. 

C 言語では，文字¥ ( JIS コード.アスキーコードではハを文字，文字列 
中の特別な記号として用います.所が，この記号は 5 CH というコードを持っ 
ていますから，シフト JIS 方式の2パ'イトコードで漢字を表示すると，2バイ 


などと記述する場合には問題ありませんが，次のような場合は正しくコンパ 
イルされません. 

リスト 5 - 1 - 3 マクロ定義でうまくいかない例 

A>type aefine.c 

#define MSG • 肘 n 7 クロテイキ、、デ、 n ツ niTt ン . - 文字列のマクロ定義 . 

mainO 

{ 

printf (MSG) ; 

} 

A>cc deiine -p 

BD Software C Compiler vl.50a (part I) 


13 4 5 6 
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卜めがこのコードと一致することがあります.この場合，文字列の内容を誤 
って解釈してしまいますから，完全に文字が変化することになります•さら 
に具合が悪いことに文字列の最後にこの文字がある場合には文字化けでは済 
まず， コンパイル そのものができなくなります. 

リスト 5 - 1 - 4 文字化けする場合 


A>cc kanjerr 

BD Software C Compiler vl.50a (part I) 


mainO 

{ 

printf (• すべての漢字を正しく表現できません”； 




36K elbowroom 

BD Software C Compiler vl.50 (part II) 
32K to spare 


ンパイルでは正しいように 
見えるが…… 


A>clink kanjerr 
BD Software C Linker vl.50 
Linkage complete 
43K left over 


A>kanjerr 

すべての漢字を正しく阜リできません 


A> 


文字化けした文字列.漢字コード 
の2バイトめが 5 CH の文字はこのよ 
うになってしまう. 


リスト 5 - 1 - 5 コンパイルができない場合 


A>cc r:kanjerr2 -p 

BD Software C Compiler vl.50a (part I) 


mainO 


どう見ても正しいように見えるが， 

”がないと判断される. 

これは「表」の2バイトめが 5 CH (¥) 
で，¥”と解釈されたため. 


printf (" 人数表 "）; 













5-2 プリプロセッサを用いる方法 
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3: String too long (or missing quote) 

A> 

パッチによる方法は非常に簡単で効果も大きいのですが，そこに上記のよ 
うな問題が残されている事にも注意しなければなりません. 


| 5-2 プリプロセッサを用いる方法 

あらかじめソースプログラムそのものを変更してしまおうというのがプリ 
プロセッサを用いる方法ですが， C 言語ではもともと8ビットフルに用いた文字 
列を使ってはならないわけではなく，ある特定の条件のもとでは使用するこ 
とが可能です. 

” ¥377¥376” 

という文字列は特殊文字¥を用いて， OFFH ，0 FEH のコードを文字列に設 
定する例です.¥マークのあと8進3桁で数値を指定することにより0から 
0 FFH まですベてのコードを文字列の中に埋め込めます.この方法を用いて， 

”表現” 一^ ”¥225¥134¥214¥273” 

という形に変換してしまうわけです.全く何を表現しているのか判らなくな 
りますが，すべての制約はなくなります. 

それでは，この処理を行なうプリプロセッサ ktoc をご紹介します. 

リスト5 - 2 - 1 ktoc . c 


2 

3 

4 

5 

6 

7 

8 


/幸窣拿專本拿本傘傘本拿本拿*本傘本本幸拿拿傘本拿本本本本本本傘本拿傘傘拿拿拿拿拿拿拿拿傘拿幸拿拿拿拿傘 

日本語 コード 変換 ユーティリティ 
( ktoc . c ) 

Author : Tsu.Mitarai 


A>cc ktoc - e 2100 


12/Dec/1986 
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16 

char 

lbuffer[512]； 

/* get line buffer 

*/ 

17 

FILE 

fpin; 

/* input file buffer 

*/ 

18 

FILE 

fpout; 

/* output file buffer 

*/ 

19 





20 

int 

lent; 

/* 行カウンター 

*/ 

21 

char 

kanj if : 

/* 漢字あり：1，カナのみ：0*/ 

22 





23 





24 

main (argc, argv) 



25 

int 

argc; 



26 

char 

* argv [] ； 




27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 


A>clink ktoc 

拿拿拿拿拿»拿本本本拿»拿拿本拿寧拿**傘拿本本拿拿傘傘拿本本本傘窣本拿傘幸拿*本拿拿本拿本拿本本*/ 

糞 define DEBUG 0 

^include <bdscio.h> 


char 

char 


infile[20]； 
outfile[20]； 


if ( argc < 2 ) 

{ 

printf (•害式： ktoc filena_e [-nk]¥n*)； 
printf (• -nk: 滇字を使用しない堪合 1 *); 
exit 0; 

} 

strcpy (infile，argv[l]) ; 
strcpy loutf ile,argv [1]) ; 
strcat (infile,*.C*)； 
streat (outf ile, *.CK*); 


if (strc«p (argv[2]»'-NK*)) kanjif 
else kanj if 

if (ERROR == fopen (infile,fpin)) 


TRUE ; 

FALSE; 


printf (•く Xs > がオーブンできません' infile); 
exit 0; 

} 

if (ERROR == fereat (outf i le , fpout )) 

{ 

printf C<Xs> を作成することができません•，〇 utfile); 
exit 0； 


ktoc 0； 
fputc (CPMH0F)； 


/* メインルーチン*/ 


if (ERROR == fclose (fpout)) 

printf (•く Xs> を 正しく ク a —ズできません •， outf ile); 
else printf (• くを作成しました • ，〇 utf i le); 


ktoc 0 


char cl,c2; 

char *cpnt; 

ini coiicnt; 


/* コメントのネストカウンター*/ 




69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128: 
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lent =1; 
concnt = 0; 

while ( fgets (lbuffer, fpin)) 
{ 

tif DEBUG 


printf (• (%d)%s*.concnt, lbufferj; 

Send if 

cpnt =1 buffer; 
cl= 0; 

while (c2 = *cpnt) 

{ 

fputc (c2 )； 
cpnt ++； 

if (cl==’/’ && c2= = ’*’） comcnt++; 

else if (cl ==’*’&& c2 == ’/’） 

{ 

if (--content < Q) 

{ 

printf (*%d: ,lent, lbuf fer); 

printf (• コメントが正しくありません •）； 
exit 0; 


if (ScoMcnt) 

{ 

if (c2 == cpnt=skipchar (cpnt); 

if (c2 == ••’) cpnt=setstr (cpnt); 

} 

cl=c2 ； 

} 

lcnt++; 

} 

if (coacnt !=0) 

{ 

printf (• コメントが閉じていません •）； 
exit 〇 ; 


fputc(c) 

char c; 

{ 

if (c= = ' ¥n') putc (’¥r’ ， fpout); 

if ( ERROR =* putc (c> fpout)) 

{ 

printf (• デイスタが一杯です •）； 
exit (); 

} 

•if DEBUG 

putchar (c); 

傳 end if 


skipchar (pnt) 

char 窣 pnt; 
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129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 

181 

182 

183 

184 

185 

186 

187 

188 
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while (*pnt != ’ ¥• ’) 

{ 

fputc (*pnt); 

if (*pnt == ’¥¥’） fputc (*++pnt); 

else if (*pnt == 1 ¥0*) 

{ 

printf (’ ％ d: %s*,lent, lbuffer); 

printf (• 文字が正しく記述されていません •）； 

exit (); 

} 

pnt ++； 

} 

fputc い pnt++); 
return (pnt); 


sets tr (pnt) 

char *pnt; 

{ 

char kflag; /* 漢字 1 バイトめのフラグ */ 

kflag = FALSE; 
while (1) 


#if DEBUG 
lend if 


if (kflag) 

{ 

if (*pn い =，¥¥’ il *pnt>=0x80) 

{ 

printf (*(2nd)¥¥%03o*.*pnt )； 
fprintf (fpout ， •¥¥%03o’ ， *pnt++); 

} 

else fputc (*pnt++); 
kflag = FALSE; 

} 

else if (*pnt== ，押，） 

{ 

fputc (*pntf+); 
fputc (*pnt++)； 

} 

else if (*pnt>=0x80) 


m DEBUG 


printf C (lst)¥¥%03o*,*pnt); 

Kendif 

fprintf (fpout, a ¥¥%03o*« *pnt); 
if ( kanjif && 

(Opnt>=0x80 && *pnt<0xa0) S ! 
(♦pnt>=0xe0 it *pnt<0xfd))) 
kflag » TRUE; 


pnt ++； 

} 

else if (»pnt == ’ 

{ 

fputc (*pnt++); 
return (pnt); 


else if (*pnt == ’¥0 ’） 
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189 

190 

191 

192 

193 

194 

195 

196 

197 


{ 

printf CXd : XsMcnt , lbuffer ); 

printf (• 文字列が县遢ぎるか f マークが落ちています。； 
exit 〇 ; 

} 

else fputc (*pnt ++)； 


く変数および関数表〉 


1 buffer . フアイノレからの行入カパ、ッファー 

f pin . 入力用 FILE 構造体 

f pout . 出力用 FILE 構造体 

lent . 人カフアイル行番号 

kanj i f . 漢字処理をするかどうかのフラグ 


main() . 入出力用ファイル名の設定，ファイルのオーブ 

クローズ処理 

kt 〇〇 (). プログラムの本体部分 

f put C ( C ). 出カファイルへの 1 文字出力用の関数 

skipchar () ……’ ’で囲まれた文字定数の処理 

setst r (). ””で囲まれた文字列の処理関数 

( 漢字 — 8進数変換はここで行なっている） 


この ktoc はシフト JIS 漢字コード方式の場合，その第1バイトめが 80 H 〜9 
FH および E 0 H 〜 FCH にあることを利用しています. 

プログラム内部の文字列をすべてチェックし，文字列の中に 80 H 以上のキ 
ャラクタがあればそれを¥+ 8進3桁の形式に変換して出力します•ただし， 
漢字の2バイ ト めの場合，その コー ドが¥そのものの コード （ 5 CH ) と同じ 
だと コンパイル 時に誤って変換されてしまいますので， 5 CH ， および 80 H 以 
上の場合のみ¥ + 8進3桁の形式に直します.それ以外は文字キャラクタと 
なりますが，これは BDS C では文字列として最大255文字までしか記述で 
きず，¥+8進3桁で記述した場合，見掛け上文字列が長くなり， コンパイ 
ル不能になることがあるからで，少しでも短くなるようにしてあります. 
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なお，漢字を用いず，カタカナだけを利用する場合は，逆に 80 H 〜 9 FH ， 
E 0 H 〜 FCH に設定されているグラフィックキャラクタを利用すると問題を生 
ずるため， ktoc プリプロセッサにかける時にオプシヨンを指定できるように 
なっています. 

ktoc の使い方は次のとおりです. 


•rf 式 . ktoc filename [—n k ] 


filename に披張子” . c ” はいりません.また出カファイル名は filename に拡 
張子” . ck ” を付けたものとなります.またオプションの 一 nk は漢字を使わ 
ない場合に指定します （no kanji ) 

正しく変換されると，” 〈 filename . ck > を作成しました”というコメントが 
出て終了しますので，あとは 

cc f 11 e n ame . c k 
clink f i 1 e n ame 


という通常の方法で コンパイル することができます.注意することは コンパ 
イル 時に必ず ファイル 名に” . C k ” という拡張子を忘れないことで，これを 
忘れると元のファイルが コンパイル されることになります. 

なお，この ktoc はエラーメッセージなどがすべて漢字で記述されているた 
め， 5- 1項で示された変更を行なった BDS C あるいは Qf - C でなければコン 
パイルできません（メッセージを英字にしておけばコンパイルできます）.し 
かし， ktoc で変換されたファイルは cc . com 変更前のものでもコンパイルで 
きますので，このプログラムを入力された方は， ktoc . c そのものを ktoc によ 
り変換し，正しく動作するか確かめると良いでしょう.なお， ktoc にかける 
プログラムでは文字列を1行以内で記述してください.文字列中で改行する 
とエラーとなります.また，文字 （’ ’で囲んだもの）中の漢字などは変換 
されません. 
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次に操作例を示しておきますので参考にしてください. 

操作例 5-2- 2 ktoc の操作方法 

A>CC ktoc 一 621004 —— ktoc のコンハ°イルはカナ対応に変更した BDS C ， あるいは Qf - C で行なう. 

BD Software C Compiler vl.50a (part I) 

32K elbowroom 

BD Software C Compiler vl,50 (part II) 

29K to spare 

fl>clink ktoc 

BD Software C Linker vl.50 
Linkage complete 
38K left over 


A>cc ktestl-p 

BD Software C Compiler vl.50a (part I) 


1 : main0 
2： { 

3 ： printf (• 表現力 ¥rT);j 
4 ： printf (•+'¥,); J 


•一見正しくコンパイルされるかの 
ように見えるが . 


36K elbowroom 

BD Software C Compiler vl.50 (part II) 
32K to spare 


A>clink ktestl 

BD Software C Linker vl.50 

Linkage complete 
43K left over 


A>ktestl 
阜リカ 
署 1} 


実行すると文字化けしてしまう. 
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A>ktOC k test] 4 -上記の ktestl . C を ktoc に通してみる. 

く F:KTEST1.CK > を作成しました 


A>type ktestLck 
main 〇 
{ 

printf r¥225¥134¥214¥273¥227¥315¥n*); 
printf C¥217¥134¥2201¥n*); 


A>cc ktestl.ck 

BD Software C Compiler vl.50a (part I) 
36K elbowroora 

BD Software C Compiler vl.50 (part II) 
32K to spare 

A>clink ktestl 

BD Software C Linker vl.50 
Linkage complete 
43K left over 

A>ktestl 

表現力 l , 

., 卜正しく表不される. 

十人 >( 


A>type ktest2*c 


Ifdefine MSG1 • マクロ定義も使えます . ¥n* 
Jtdefine MSG2 4 劝ナ € 併用デ、キ 7 スれ * 


main 0 

{ 

printf (MSG1 ) ； 
printf (MSG2 )； 
printf r 表現力 ¥n # ); 
printf (" 十人 ¥n # ); 


A>cc ktest2 -p 

BD Software C Compiler vl.50a (part I) 


漢字を含まない 
形式に変換される. 
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main 〇 

{ 

printf じ）； 
printf (MSG2 ) ； 
printf (• 表現力 ¥n ’）； 
printf (• 十人 ¥iT); 


6: String too long .or hissing Quoted — だ 2 ^ レすら不能 . 


A>ktoe ktes - kt oc に通してから コンパイル. 

く F:KTEST2.CK > を作成しました 


A>cc ktest2,ck 

BD Software C Compiler vl.50a (part I) 
35K elbowroom 

BD Software C Compiler vl.50 (part II) 
32K to spare 

A>clink ktest2 

BD Software C Linker vl.50 
Linkage complete 
43K left over 


A>ktest2 

マクロ定義も使えます . 


mm t 併用デ、キマス 
表現力 
十人 


L 制限なしに 
すべての表示が可能 . 


A> 


| 5-3 日本語処理パッケージ 

さて，前々項，前項で ， BDS C ， Qf - C により，日本語処理を行なう用意は 


整いました. 
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しかし，漢字などのシフト JIS コードは基本的に漢数字の8ビットのコード 
体系とコンパチビリティを持たせた形にしてあるものの. C 言語では日本語 
が標準ではないために，日本語文字列の処理を行なう関数のすべては有効に 
使うことができません. 

そのため ， BDS C ， Qf - C 用に専用の日本語処理パッケージを作成しました. 
この関数パッケージを用いることで，日本語文字列の処理が簡単に行なうこ 
とができるようになります.是非，有効に使っていただきたいと思います. 
まず，この日本語処理パッケージに含まれる関数について説明します. 


kget 1 ine(buf , cnt) 
char *bu f ; 
in t cnt; 


buf に内容を格納したいバッファーのアドレス， cnt に入力可能な最大文字 
数+ 1 をセットするとコンソールから 1 行入力し，その結果を but から格納 
します.戻り値は入力した文字数になります.ただし，リターンキーは文字 
列および文字数には含まれません. 

この関数で注意することは1バイト系の文字を入力している場合には最大 
cut - 2 文字までしか入力が行なわれないことです（終端文字の 0 を除く）•も 
し， cn 卜 2 文字めが漢字など 2 バイト系文字の 1 バイトめであった場合には， 
2 バイ トめも コンソールから 入力して バッファに 格納します. 

kgetline ( buf, 11 ) の場合 

カナ，英数字のみ ： 9文字まで 

第9文字が漢字の1バイトめ：10文字まで入力 

getline , gets などは文字列を入力する場合の基本的な関数ですが，漢字な 
どを入力する場合にはうまくいかない場合があります.それは2バイト系の 




5-3 日本語処理パッケ——乙 


135 


文字が存在するために getline の文字数制限により，無情にも第1バイトのみ 
で入力が打ち切られてしまう場合があることと， BS ， DEL などのキーを併 
用した際に漢字の第2バイトだけしか消去されず，2回キーを押さないと正 
しく文字を消去することができないことです.特に DEL ， BS などのキーに 
ついての問題は，通信などでも面倒な部分です. 

kgetline では DEL キー （18 H )， バックスペース （ 7 FH ) で前の1文字を削 
除する処理を行ないます.漢字などの場合は，正しく 2バイト分消去します. 
また.コントロール X による入力行のキャンセルもサポートしています.な 
お，これらの処理ではバックスペース （¥ b ) およびカーソルキャラクタを 
用いて BDOS コールで力ーソル移動を行なっていますので， CP / M の BIOS 
の作成法および BDS C のバージョンによって若干動作が異なる可能性があり 
ます.また， TAB キー（コントロール I ， 09 H ) の入力があった場合は DEL ， 
コントロール X などのキーが正しく動作しません.注意してください. 

【注意】 TAB の 問題については BDOS コールのファンクション 1 (1 文字 
入力）， 2(1 文字出力），9(文字列出力）では実現できません . 6 (コン 
ソールへの 直接入出力） か， BIOS コールを 用いて変更する必要があ 
ります.） 

動作を確認したものは次のものです. 

BDS C vl . 50 a および a-C vl . 51 
turboCP/M v 2. 2 (漢字版） （シャープ） 


atokstr ^ inbuf , 

r 〇 u t bu i ) 

char ホ inbuf , 

f * o u t b u f ; 


inbuf で与えられる文字列のうち，1バイト文字をすべて2バイト文字に変 
更して outbuf に書き込みます.従って， outbuf の長さは inbuf の文字列の長さ 
を終端文字0も含めて n とすると，最大 2* ( n -1) +1となります•元 
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々2 バイトの文字は変更しません.なお， スペース （20 H ) は スペース2 個 
にします. 

また，力、、，ハ。など半角文字では2バイトで1文字になるものも正しく 
変換されます.ただし，その変換は機械的なものなので，“ア°”などとあり 
えない文字を書くと誤って変換されます.関数 atok ， i S kanji を使用していま 

す. 


1 n t a t 〇 k ( c ) 
c n a r c ; 


1 バイト文字 c を 2 バイト文字に変換し，整数で返します.変換できない 
場合には0を返します. 


ktoastr ( inbui 1 

r 〇 u tbu f ) 

char ホ inbuf , 

f * o u tbu f ; 


inbuf で与えられる文字列で2バイト文字のうち1バイト文字にできるもの 
だけを変更して outbuf に格納します.ただし，スペースが2個あっても1個 
には変換しませんので， atokstr で変換した文字列を ktoastr に入力した場合， 

スペースについてのみ， 異なる 可能性が あります. 

なお，関数 ktoa を用いています. 


char ktoa ( k ) 
unsigned k ; 


2 バイト文字 k を 1 バイト文字に変換します.変換できない場合は0を返 
します. 

関数 iskanji，—ksearch (文字列の検索関数）を用いています. 
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r 〇 ma n s t r ( s t r , bu f ) 
char 本 str, 氺 buf; 

ローマ字カナ変換を行ないます.この関数は英大文字あるいは小文字で与 
えられるローマ字の文字列をダイナミックに1バイト文字のカナに変換しま 
す.このローマ字変換の規則は次のとおりですが，この規則に当てはまらな 
い場合，ローマ字はそのまま出カバッファにコピーされます. 



□ a 

□ i 

k 

力 

キ 

S 

サ 

シ 

t 

夕 

チ 

n 

ナ 

二 

h 

ノ、 

ヒ 

m 

マ 

5 

r 

ラ 

U 

y 

ヤ 

X 

w 

7 

ウイ 

g 

力'、 

キ、' 

z 

サ、、 


d 

夕、、 

チ、、 

b 

ハ、、 

ヒ、、 

p 

ハ 0 

ヒ。 

f 

フア 

フイ 

V 

ウ、、ァ 

ウ、、 

k y 

キャ 

キイ 

s y 

シャ 

シイ 

t y 

チヤ 

チイ 


□ u u e 

ク ヶ 

ス セ 

ツ テ 

ヌ ネ 

フ へ 

ム メ 

ル レ 

ユ X 

ウゥ ウェ 

ク、 ヶ 

ス、、 セ、、 

ツ、、 テ、、 

フ、、 へ、、 

フ 0 へ 0 

フ フエ 

ィ ゥ '、 ゥ、、ェ 
キュ キュ 

シュ シエ 

チュ チェ 


□ 0 
a 
ソ 

h 

ノ 

ホ 

モ 

口 （1 でも変換可能) 

3 

ヲ 

ゴ、、 

ソ、、 

卜'、 

ホ'、 

ホ 。 

フオ 
ウ、、ォ 
キヨ 
シヨ 
チヨ 
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n y 

h y 

my 
r y 

g y 

z y 
d y 
by 
P y 
j 

t h 
d h 
t s 


ニヤ ニイ ニユ ニェ ニヨ 


ヒャ ヒィ ヒュ ヒェ ヒヨ 

ミャ ミィ ミュ ミェ ミョ 

リャ リィ リュ リョ リョ 

キ、、ャ キ•ィキ、'ュ キ、、ェ キ。ョ 
シ 'ャ シ*ィ シ”ュ シ '’ェ シ。ヨ 
チ、' ャ 千、、ィ千、' ェ千、' ェ千'、ョ 
ヒ、、ャヒ ''ィヒ ''ュヒ ''ェヒ ''ヨ 

ヒ。ャヒ。ィ ヒ。ュヒ。ェヒ。ヨ 

«> 、、 、〇 \ ％ 、、 、 、、 

ン ヤン ン ユン エン ヨ 

テャ ティ テュ テェ テョ 

テ、、ャテ、、ィテ、' ュテ◊ェ 干'' ョ 

ツァ ツイ ツ ツエ ツォ 


n のみ _ ン 
x のみーン 

(ウンヨウなどは uxyou とすると正しく変換されます.） 


htokstr ( str , buf ) 
char * str ,* buf ; 


2バイト文字のひらがなの文字列を2バイト文字のカタカナに変換します. 
入力文字列の先頭アドレスを s tr に，出力文字列の出力は buf に設定します. 

2バイトのひらがな以外の文字はそのままコピーします. 


unsigned htokana ^k) 
unsigned k ; 
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k が2バイト文字のひらがなの場合，それを2バイトのカタカナに直しま 
す•もしひらがなでない場合はそのまま k の値を返します. 


k t 〇 h s t 

r ( s t r ( 

『 buf ) 

char 

* s t r , 

r * b u f ; 


2バイト文字のカタカナ文字列をひらかなに直します.カタカナ以外の文 
字が含まれていた場合にはそのまま出力にコピーします. 

入力は str ， 出力は buf です. 


unsigned kanatoh ( k ) 
unsigned k ; 


2 バイト文字 k がカタカナであった場合にはひらがなに直して戻り値とし 
ます.もし，カタカナでなければそのまま返します. 


k t ype ( k ) 

unsigned k ; 


2 バイト文字 k の種類を調べ，その種類によって次のような値を返しま 
す. 


2バイト文字でない場合 .一 1 

未定義 . 0 

記号 . 1 

数字 . 2 

英大文字 . 3 

英小文字 . 4 
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ひらがな . b 

力タカナ . 6 

漢字 . 7 


その他（ギリシャ文字など）……8 


iskanji 

(c) 

char 

c ; 


iskanji () は文字 c が2バイト文字の1バイトめであるかどうかを判定し， 
そうであれば1，さもなければ0を返します. 


これらの関数を含むリスト nihongo . c をリスト 5-3-1 に紹介します•な 
お， nihongo . c はカナ対応に変換した BDS C ， あるいは Qf - C で ktoc を用いて 
コンパイルしてください. 


リスト 5 - 3 - 1 nihongo. c 


2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 


BDS C 日本語処理バフケージ vl.O 

Author : Tsu.Hitarai 13/Dec/1986 
(c) AmaC co.1986 

/* 利用方法 •/ 

1.23 行の KTEST を0に変更 

2. ， nihongo.c , をコンパイル 

A>ktoc nihongo 
A>cc nihongo.ck 

3 • 夕-ゲットブログラムとリンク 


A>cc target 

A>clink target -r nihongo 


■include <bdscio.h> 
蕃 define KTEST 1 


tif KTEST 
■a i n 0 
{ 

char buf[33]; 

char knbuf[33] : 

char kbuf [65 ]； 










31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 
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char 

khbuf [65]; 

char 

kkbuf [65]; 

char 

abuf [33]; 

int 

n; 


while (1) 

{ 

printf ('input->*) ; 
n«kgetline (buf.30) ； 

printf (• オリジナル： Xs (文字数 Xd)¥n_, buf, n); 

roaanstr (buf,kbuf) : 

printf (、 ナ変換 ： XsVn*, kbuf) : 

atokstr (kbuf.knbuf); 

printf (•；> ナ -> カナ ： Xs¥q* , knbuf) : 

ktohstr (knbuf,khbuf); 

printf (• カナ - > かな： XsVn* , khbuf, n) : 

htokstr (khbuf,kkbuf); 

printf (• かな-〉カナ： XsVn*, kkbuf) : 

ktoastr (kkbuf,abuf); 

printf (• カナ - >)i ナ : 2s¥n¥n*, abuf) : 


kgetl ine (buf, cnt) 

char 拿 buf; 

int cnt; 

{ 

int cent; 

char c; 

int i; 

char *pnt; 

pn t = buf : 
cent 3 0; 
while (1) 

{ 

c:bdos (1); 
switch (c) 

( 

case '¥r': 


case 3 ： 


case 0x7f ： 
case 0x8 : 


/ 聿 output buffer */ 
/* 最大文字数 */ 


/* リターンキー */ 

*pnt=0 ; 

bdos (9,*Vr¥n$*)j 
return (cent); 

/* control C */ 
exit (); 

/* BS.LEFT ARROW.DEL */ 
if (ccnt-»0) 

{ 

bdos (2.0xlc); 
break ； 

} 

else if (iskanji(*(pnt-2))) 

{ 

cent -» 2; 
pnt -» 2 ； 

bdos (9,*¥b ¥b¥b$ , ); 

} 

else if (*(pnt-l) < 0x20) 


bdos (9,，¥b ¥bVb$'); 

cent--; 
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123 
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pnt--; 

} 

else 

{ 

bdos (9, • ¥b$*) ; 
cent--; 
pn t--; 


break ； 

case 0x18 ： /* contol X •/ 

pnt = buf : 

for (i=0; i く cent; i++) 

{ 

if (*pnt++<0x20) bdos (9,'Vb ¥b¥bVb$ B ); 
else bdos (9 ，， ¥b¥b$_); 

) 

bdos (9/ ¥bS*); 
cent = 0; 
pnt - buf; 
break; 

default: *pnt++ = c ； 

ccnt++; 
if (c<0x20) 

{ 

bdos (2 . …）； 
bdos (2,c+flx40); 

} 

if (cent >* cnt-2) 

{ 

if (iskanji(c)) 

{ 

*pnt++ = bdos (1) : 
ccnt++ : 

) 

*pnt = 0; 

bdos (9,.¥r¥n$_); 

return(cent); 


/*1 パイト文字列 - > 2 パイト文字列変換 */ 
atoks tr (s tr.buf) 

char 拿 strs I* input ♦/ 

char I* output */ 


unsigned k; 
while (*str) 


if (*str == 'O' && *(str+l)=* ，H， ) 

{ 

*buf++ = 0x83; 

*buf++ = 0x94; 
s tr + + ； 

} 

else if (*str =* ’、、’） *(buf-1) +*1: 
else if (*str == 1 * 1 ) *(buf-1)t*2 ； 
else if (iskanji (*str)) 

{ 

車 buf + + = tr+t; 

拿 buf+ + a 傘 s tr ； 

(k = a tok(*s tr)) 


else if 


*buf++=k/256 ； 
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193 
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197 
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199 
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210 

211 
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213 

214 

215 

216 

217 

218 

219 

220 

221 

222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 


5-3 日本語処理ハ。ッケージ 


143 


*buf + + = k40xf f ; 

} 

else «buf + + > ■ 傘 s tr; 

str++; 

} 

*buf=>0; 


/*1 パイト文字 - > 2 バイト文字変換 */ 
unsigned atok(c ； 

char c; 

{ 

char *s; 

if (c く’’） return (0) : 

else if (c<0x40) 

{ 

s パ ! 0 f () *+• -. /0123456789 ： ;< = >?•; 

c* (c-0x20)*2; 

} 

else if (c<0x60) 

{ 

s:. ® A B C D E F G H I J K L M N 0 P Q R S T U V W X Y Z [¥] * _'； 

c* (c-0x40)*2; 


else if 


else if 
else if 


(c<0x80) 


s= # ' abcde f g h i jklmnopqrs t u v w x y 2 { I } 
c« (c-0x60)*2; 


(c<0xa0) return (0); 

(c<0xc0) 

s =* • rj 、 •ヲァィゥェォャュ s ッーアイウエオカキクケコサシスセソ•： 

c»(c-0xa0)*2; 


else if (c<0xe0) 

{ 

s ノタチツテトナニヌネノハヒフへホマミムメモヤュョラリルレ n ワン 

c» (c-0xc0)*2; 

} 

else return (0); 

return (*(s + c)*256 + *(a+c+1 ))； 


/* 2 パイト文字列 - > 1 バイト文字列変換 */ 
ktoas tr (s tr,buf) 

char «strs I* input 拿 / 
char 拿 buf; I * output *1 


unsigned c; 
while (*s tr) 

{ 

if (c = 
{ 


else 


ktoa (*str*256+*(strfl).l)) 

if (c<256) *buf++ = c; 
else 
{ 

• buf + + * c 4 Oxff; 
•buf ++ * c / 256; 

} 

str+=2; 

(iskanj i (*str)) 

拿 bulf + + * 

拿 buf++ » 聿 
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*buf = 0; 


/* 2 バイト 文字 - > 1 バイト 文字変換 
觸音，半瀰音の壜合には上位バイトに • 
のコードが 没定されます . 

unsigned ktoa (kn) 

unsigned kn ； 

{ 

char *s; 
unsigned k ； 


if (!iskanji(kn/256)) 


s = - ! * , 0 * +. -. / 

if (ERROR !» (k»_ksearch (s,kn))) 
return (k+0x21); 


return (0); 

f. -./01 23456789 


> ?• 


s ノ ©ABCDEFGHIJKLMNOPQRSTUVWXYZ [¥] 
if (ERROR い (k=_ksearch (s,kn))) 
return (k + 0x40); 


s = * 'abcdefghi jklmnopq 
if (ERROR い (k=_kaearch (s.kn))) 
return (k+0x60); 


x y 2 { I ! 


s = *. 「 J 、 •ヲァイヴ * ォャュ a フー アイウエ オカ キクケコサシスセ ソ， 

if (ERROR !» (k=_ksearch (s.kn))) 
return (k+Oxal); 


s = •タチツテトナニヌネノハヒフへホマミムメモヤユヨラ 

if (ERROR !» (k-.ksearch (s.kn))) 
return (Ic+OxcO); 


[フン 


s ノガギグゲゴザジズゼゾダヂ • ゾデド • ； 
if (ERROR い （ k ュ _ksearch (s.kn))) 

s » •バビブべボ * ; 

if (ERROR !» (k».ksearch (s.kn))) 

s = • バビブぺポ•： 

if (ERROR != (k«_ksearch (s.kn))) 

if Oc«. ヴ •） 
return (0) • 


return (' M * *256+k+0xb6); 
return (’**. *256+k+0xca); 
return •*256+k+0xca); 

re turn (• 级ゥ •） 5 


/* 2 バイト文字列のサーチ 
.ksearch (str , k) 

char ^stri 
unsigned k ； 


char 
in t 


cO , cl ; 


6 f 
5 X ) 

2 01 
/ 4 ( 

» k k 
0 e 

Msl 
I i 

o1 h 

* c c w { 


if ((*str == cO) && (#(str+l)=* cl)) 


return (i); 
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if (!*(++str)) return (-1 ) ； 
if (!*(Hstr)) return (-1 )； 
it+; 


/* ローマ字文字列 - ナ文字列変換 */ 
ronans tr (s tr,buf) 

char 拿 str{ t* input *1 

char ^bufj I* output »/ 

{ 

char kbuf [5] : 

*buf = 0; 
while (*str) 

{ 

s tr = rona tok (s tr, kbuf); 
streat (buf,kbuf); 


/* 口 - マ字 ft ナ （ li»M トモシ * 、）変換 */ 

ro 鷄 a tok (pnt,buf) 


char 

*pnt; 

char 

*buf; 

char 

c; 

char 

cl,c2.c3; 

int 

ku; 

char 

*s tr; 


s tr = pnt; 

cl * fcoupper ( 傘 str++)j 


if (c»_ckboin (cl)) *buf + + = c; /* 母音 */ 
else if (cl ** 'X') *buf++»’ ン ’； 


else 


c2 = toupper (*str++); 
if (c=_ckboin (c2)) 


Mitch (cl) 


case 

case 

case 

case 

case 

case 

case 


case 'B' 


«buf++=c+5; 
break; 

*buf++=c+10 ； 

break; 

*buf++=c+15 ； 
break; 

*buf++*c+20 ； 
break; 

*buf++»c+25; 
break; 

*buf t + = 30 ; 

break; 

• buf + + = c + 38 : 
break; 

*buf f+ = c + 5; 

• buf … ，、い； 

break; 

*buf+f=c+10; 
*buf++- ，w， ; 
break ； 

*buf + + = c+15 ； 
*buf + + = ，tt， ; 
break; 

«buf++=ct25 ； 
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403 

404 
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406 

407 
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410 

411 
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break; 

*buf++=c+25 ； 

• buf + W ; 

if (c^*? 1 ) *buf + + =>*; 

else if (c== ■ ウ ’ ） *buf++:’i ’； 
else if (c=='t') *buft + = , 3* : 
else goto kerror; 

break; 

if (c«.r) *buf++- ， つ，； 

else if (c==* ) *buf“ 》 ’ ラ’； 

else 
{ 

*buf+ + »* O '； 

*buf+f=c-10; 

} 

break; 

if (c« ， 0 ，） *buf++ バフ ， ； 

else 
{ 

*buf ++=’ フ ’； 

*buf++=c-10; 

} 

break; 

*buf+■! • 雪 ’ シ ’； 

• bum い、，，； 

c*_ckyoon (c) : 

if (c!= • ィ ’） *buf++=c; 

break; 

*buf + + -* O'; 

*buf++« ，tt， ; 

*buf t + = c-10; 
break; 

goto kerror; 


else if (cl!: ’N,14 cl«c2) 

{ 

*buf ++■•，•； 
s tr —— ； 

) 

else if (cl 打 ’ N，ii (cl-c2 !! c2= = 0 !! c2! = T)) 

{ 

*buf++= ’ ン .； 
str--; 

} 

else 

{ 

c3 =» toupper (*str+ + ); 

if (! (c«_ckboia(c3))) goto kerror; 

c * _ckyoon (c )； 
ku»c2*256+cl; 
switch (ku) 

{ 

case ， KY. 


case ， SY ， 


case ， TY. 


case * NY* 


case 'Hr 


*buf++= • キ *; 

*buf 

break; 

*buf++«’ シ’： 

*buf++=c; 
break; 
*buf++ ノ子，； 
*buf++*c; 
break; 
*buf++« , = , ; 
*buf + + «c; 
break; 
*buf++= , t , ; 
*buff+*c ； 
break; 


case 'P* : 

case ， Y •: 

case ’ H ’： 



default ： 
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case 

1 MY '： 

*buf+ + = 1 ミ*; 
*buf++=c; 
break; 


case 

• RY * : 

*buf+ + = ’ リ’ ； 

*buf++*c; 

break; 


case 

， GY ，： 

*buf++= • 年’： 
*buf++= ，w， : 
*buf++*c ； 
break; 


case 

•zr : 

*buf; 
*buf ++» ，w， ; 
*buf++»c; 
break; 


case 

， DY ，： 

*buf++** チ •； 
*buf + + - ，tt， ; 
*buf++=c; 
break; 


case 

， BY ，： 

*buf + + <*’ t’ ； 
•buf++=， tt, ; 
*buf++=c; 
break ； 


case 

*PY* : 

*bu f + + =’ t ’ ； 

• buf + + い.，； 

*buf++»c; 
break ； 


case 

， SH ，： 

*buf++='&'; 
if (c! =' -f') 
break; 

*buf++=c 

case 

， CH ，： 

*buf + + »’ 子’； 

if (c! へ，） 
break; 

*buf t +=c 

case 

， TS •: 

*buf + + ».r ; 

if (c!»'a') 
break; 

*buf++=c 

case 

， TH ，： 

*buf + + ■’• テ’； 
*buf++»c; 
break; 


case 

，DH •: 

*bu“ + •’ テ ， ； 

*buf ++= ，tt， ； 
*buf 
break; 


default: 

if (cl« ， N ，） 

{ 

*buf + + ノン’； 
str -* 2 ； 

} 

else goto kerror; 


*buf : 〇 ; 
return (str) ; 


kerror ：拿 buf++= 拿 pnt++j 
*buf=0; 
return (pnt); 


/* 母音のチェック */ 

.ckboin(c) 

char c; 

{ 

switch (c) 

return (’？’） 
return (’ ィ ’） 
return (’ ゥ ’） 
return (* i') 
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case ’ 0’ ： return (’ 才 1 ) ; 

default:; return (0); 


/* よう音のチェック */ 
_ckyoon(c) 

char c; 

{ 

switch (c) 

{ 

case '?* : 
case ' ィ ， ： 
case 1 ゥ’： 
case 'x* : 
case ’ 才•： 
default: : 

} 

return (c )； 


/* M */ 


re turn い t ) 
return (’V) 
return (' x') 
return (*x 1 ) 
return (’ a ’） 


/* ひらがな文字列 - > カタカナ文字列変換 •/ 
htoks tr(s tr,buf) 

char 拿 strj 

char *buf; 

{ 

unsigned k; 
while (1) 

{ 

if (!*str) break; 

if (!iskanji (*str)) *buf+ + **str++; 
else 
{ 

k»*str++i 

if (!*str) break ； 

k=k*256+*strf+; 
k = h tokana (k )； 

*buf++*k/256; 

*buf++«k & Oxff; 


♦ buf = 0; 


/* ひらがな - 〉カタカナ変換 */ 
unsigned htokana (k) 
unsigned k; 

( 

if (ktype (k) == 5) 

{ 

if (k>0x82dd) return 
else re turn 

} 

re turn (k )； 


/* カタカナ文字列 - > ひらがな文字列変換 
ktohs tr(s tr,buf) 

char 拿 strs 
char *buf; 

unsigned k; 
while (1) 

{ 

if (!*str) 

if (!iskanj i (*s tr)) 
else 


(k+0xa2): 
(k + Oxal); 


*/ 


break ； 

拿 buf+ + = trf+ : 











591 

592 

593 

594 

595 

596 

597 

598 

599 

600 

601 

602 

603 

604 

605 

606 
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609 

610 

611 

612 

613 

614 

615 

616 

617 

618 

619 

620 

621 

622 

623 

624 

625 

626 

627 

628 

629 

630 

631 

632 

633 

634 

635 

636 

637 

638 

639 

640 

641 

642 

643 

644 

645 

646 

647 

648 

649 

650 

651 

652 

653 

654 

655 

656 

657 

658 

659 

660 
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k»*str++; 
if (!*str) 
k=k*256+*str++; 
k«kanatoh (k); 
*buf++=k/256; 
*buf++=k & Oxff; 


*buf»0; 


/* カタカナ - > ひらがな変換 */ 
unsigned kanatoh(k) 
unsigned k; 

{ 

if (ktype (k) == 6) 

{ 

if (k>0x837f) return (k-0xa2 )； 
else return (k-Oxal) : 

) 

return (k )； 


/* 2 パイト文字の種類をチェックする関数 
出力： -1 (2 バイト文字ではない〉 

0 ( 未定養） 

1( 記号） 

2 ( 数字） 

3 ( 英大文字） 

4 ( 英小文字） 

5 ( ひらがな〉 

6 ( カタカナ） 

7 ( 溟字〉 

8 ( ギリシャ文字など） ♦/ 

ktype(k) 

unsigned k; 


char kl; 
kl=k&Oxff ； 


if 

(! iskanj i (k/256)) 

return 

(-1) 

if 

(kl<0x40) 

return 

(0) 

if 

(kl==0x7f) 

return 

(0) 

if 

(kl>0xfc) 

return 

(0) 

if 

(k<0x8140) 

return 

(0) 

if 

(k<0x824f) 

return 

(1) 

if 

(k<0x8258) 

return 

(2) 

if 

(k<0x8260) 

return 

(0) 

if 

(k<0x827a) 

return 

(3) 

if 

(k<0x8281) 

return 

(0) 

if 

(k<0x829a) 

re turn 

(4) 

if 

(k<flx829f) 

return 

(0) 

if 

(k<0x82f2) 

return 

(5) 

if 

(k<0x8340) 

return 

(0) 

if 

(k<0x8397) 

return 

(6) 

if 

(k<flx849f) 

return 

(8) 


return (7); 


/* 2 バイト文字列かどうかのチェック */ 
iskaitj i (c) 

char c; 


break; 


if (c<flx8fl) 


return (FALSE); 
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if (c<OxaO) return (TRUE); 
if (c<OxeO) return (FALSE); 
if (c<Oxfd) return (TRUE) : 
return (FALSE); 


日本語処理パッケージの使い方 


nihongo . c はそのままではテスト用の関数を含んでいますので23行めの# defi - 
ne 文の ktest を0に変更してコンパイルし， nihongo . crl というファイルにし 
ておきます.これを用いてプログラムを作成する場合には， 

clink program —f nihongo 

という形で使うと自動的に nihongo . crl から必要関数だけをピックアップして 
使うことが可能です. 

また ， BDS C であらかじめ用意されている文字列処理用の関数のうち， 
日本語をうかつに使うと問題になるものがあります. toupper , tolower がその 
代表的なもので，この関数を用いて文字列などを変換すると漢字コードの2 
バイトめが英大文字あるいは小文字と同じコードのものはすベて異なった文 
字に蛮換されてしまいます.そのためあらかじめ2バイトコードでないこと 
を確認して使う必要があります. 

なお， ktoc の処理は決して速いとは言えません.そこで，日本語の文字列 
がある部分だけを別のファイルにしておき，そこだけ ktoc で変換しても良い 
でしょう.日本語の無い部分まで ktoc に通す必要はありません. 

操作例 5-4-1 日本語処理ノぐンケージの操作例 

A > ktoe nihon 乓〇一-日本語処理ハ•ッケージの コンパイ ルには ktoc が必要. 

く NIHONGO. CK> を作成しました 

A > cc nihongo* ck^ -コンパイルにも漢字対応に変更したものを使う. 

BD Software C Compiler vl.50a (part I) 

21K elbowroow 


4 


ov 12 3 4 5 6 

6 6 6 6 6 6 

6 6 6 6 6 6 
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nashi « 

t 問題 nashi. 
モ問題ナシ . 

モ問題ナ 
も問題な 
モ問題ナ 
€ 問題ナシ . 


( 文字数 18) 


ナ（文字数 21) 

«-ローマ字 以外の部分はそのまま. 


inpu t->ro-ma 子ね夕为ナカタカナ 
オリジナル： ro-ma 字为ナカタカ 
ゎナ変換 ：口 - マ字 W カナカタカナ 

ゎナ -> カナ ： ローマ字 カタカナ 

カナ - 〉かな：ろ一ま字かたかな 
かな - 〉カナ： ローマ字 カタカナ 
カナ -> 肘 : 卩 -7 字 MM 


input -〉 漢字 

オリジナル 
わナ変換 
わナ -> カナ 
カナ - > かな 
かな-〉カナ 
カナ -> 肘 


BD Software C Compiler vl. 50 (part II) 

23K to spare 

A>clink nihongo 
BD Software C Linker vl.50 
Linkage complete 
36K left over 

A>nihongo-* - テストプログラムの実行 

input->akasatanahamayarawan 

オリジナル ： akasa tanahamayarawan ( 文字数 20) 

幻ナ変換 :アカリ 5 ナラワン， -口ーマ字—ヵナ変換 

わナ -> カナ ：アカサタナハマヤラワン^ -半角ヵナ—全角ヵナ 

カナ - 〉かな：あかさたなはまやらわん — —全角カナ—ひら力な 

かな-〉カナ：アカサタナハマヤラワン^ -ひらがな-> 全角ヵナ 

カナー〉ねナ ：ア为リタナ於ラワン ^-全角ヵナ—半角ヵナ 

input->fikyunyahyuryajatmdhitsu 

オリジナル ： fikyunyahyuryajathidhitsu ( 文字数 25) 

わナ変換 ：フイキユニ rt ユリ？シ、、 f テイテ、、イツ ^- 抛 ] U 正しく変換できる . 

M -> カナ ：フイキュニャヒュリャジャテイデイツ 
カナ - 〉かな：ふぃきゅにゃひゅりゃじゃてぃでぃつ 
かな - 〉カナ：フイ丰ュニャヒュリャジャテイデイツ 
カナ-〉ねナ :フイキユニ r ヒ; iJJr シ、、ャヲイテ、、イツ 


シしシ 


_字字字字字字 
ltd/ ku/ Isa/ 窆 
淳_ _淳蔡_ 

{ 


ナなナ 
力か力 
夕た夕 
力か力 
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input->^C 

A> 


C 

以上，日本語処理についてかなり詳細に述べました . BDS S ， で日 
本語処理はできないと思っていた方々には参考にしていただけると思います. 
また，最低限これだけでも機能が揃うと新しいプログラムの可能性も生れて 
きます.是非，新分野に挑戦していただきたいと思います. 



才一八 _ レイとチェイン 


BDS C , tt - C によって，本格的なプログラムを作成してくるようになる 
と，やがて問題になってくることがあります. 

その1つは CP / M (および8ビット CPU の）最大の欠点である.メモリ 
サイズの問題で，プログラムが大きくなり過ぎたため，プログラムがす 
ベてメモリに入り切らなくなった場合です.これには本質的な手だては 
ありません.あるとすれば， CPU を十分なメモリを確保できる16ビット 
以上のものに交換することでしよう. 

勿論これは現実的ではありませんから，実際にはプログラムをいくつ 
かに分割し，必要とする際にそのプログラムをディスクから□ー ドする 
オーパーレイの技法が良く用いられます.本章では BDS C 特有のテクニ 
ックであるオーパーレイとチエイン について 解説します. 
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| 6- 1 プログラムのチェイン 

プログラムが大きくなり，どうしてもメモリ上にすべてが入りきらなくな 
ってきた場合，ディスクからプログラムを呼び出しながら実行するオーバー 
レイ技法を必要とするようになります.これは非常に大きなプログラムでな 
くとも，作業用のワークメモリェリアを大きく確保したい場合にも用いられ 
ることがあります. 

実行中のプログラムがその一部を切り放して別のプログラムモジュールを 
ディスクから口ー ドして実行を継続する才ーバーレイに対し，実行中のプロ 
グラムすべてを捨て去り，全く新しいプログラムをディスクからロードして 
実行させることをチェインと言います （ BASIC では MERGE , および RUN 
“ filename ” に当るでしようか.）. 

BDS C では，オーバーレイは比較的簡単にできるように設計されており， 
いくつかの手順を踏むだけで実現できます.ただし，プログラムをディスク 
から呼び出しながら実行していくため，プログラムを機能単位で分割し，あ 
らかじめ整理することがどうしても必要です.単純にプログラムが大きくな 
り過ぎたから，というだけではオーバーレイ構造をとることはできません. 
しかし，別個の実行ファイル ( com ファイル）を作るチェインで構わないので 
あれば，もっと楽に作成することができます . BDS C ， ひ - C には exec ， execv ， 
excel などチヱイン用の関数が用意されていますので，作成は簡単です. 

この方法は，プログラムのランタイム パッケージの 部分がダブってロード 
されるため，ディスク容量，ファイルロード時間などの点で不利ですが，全 
く別のプログラムとしてデバッグできるため，非常に簡便で，いつでも実現 
できる方法だと言えます. 

BDS C の場合指定しない限り外部変数はすべてクリアされてしまいます 
ので，メモリ上のデータを渡すことはできませんが， execv ， execl の場合はコ 
マンド行からの引数を渡すこともできますから最低限の情報を送ることは可 
能です. 
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リスト 6 叫 - 1 execv 関数によるチェイン 

A>type execroot.c 

#include く bdscio.h 〉 

main(argc, argv) 

int argc; 

char *argv[]; 

{ 

printf ("Root segment excuting.¥n*); 
argv [argc]=0; 

execv (*execovl.com*,iargv[l]); 


> 呼び出し側の 
ブログラム. 


A>type execovl.c 

^include く bdscio.h 〉 

main (argc,argv) 

int argc; 

char *argv[]; 

{ 

int i; 

printf ("Execovl excuting....¥n"); 
for (i=l;i く argc; i+ 十） 

{ 

printf (*arg%d=¥*%s¥*¥n*,i,argv[i]); 


呼び出される側の プログラム . _ 
これはリスト 2—2— 1の args . c 
とほとんど同じもの. 

単体で実行できる. 


A>cc execroot 

BD Software C Compiler vl.50a (part I) 
35K elbowroom 

BD Software C Compiler vl.50 (part II) 
32K to spare 

A>clink execroot 
BD Software C Linker vl.50 
Linkage complete 
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42K left over 


第 6 章 - オーバーレイとチェイン 


A>cc execovl 

BD Software C Compiler vL50a (part I) 
35K elbowroom 

BD Software C Compiler vl.50 (part II) 

32K to spare 

A>clink execovl 
BD Software C Linker vl.50 
Linkage complete 
43K left over 


A>execroot a be def gnu 

Root segment excuting. 

Execovl excuting •…-- 

argl="A" 
arg2=*BC - 
arg3="DEF* 
arg4= , GHIJ" 


- execovl が起動された. 


execroot から正しく文字列が渡されている. 


なお，呼び出される側のプログラムのリンク時に一 Z オプション（外部変数 
クリア禁止）を指定し，かつ呼び出し側のプログラムと外部変数の順番，先 
頭アドレスを揃えておくとすべての変数を受け渡すことが可能です•ただし， 
BDS C 付属の L 2リンカー （ Qf - C にはありません）では_ z に相当する才 
プションがないので，生成された COM ファイルを DDT などでパッチを当て， 
禁止するしか方法はありません （141 番地を C 3 H ^ C 9 H に変更する）. 

また， exeev , execl などの関数では，呼び出すのは CP / M のユーテイリテイ 
である PIP や ASM あるいは C コンパイ ラでも構わないという利点もあります 
(但し， DIR , ERA などの ビルトインコマン ドは使えません.）. 

BDS C の コンパイ ラ本体である cc . com もこの exeev , execl などからコマ 
ンドラインの文字列を設定して実行させることが可能であり，そうすると 
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ktoc のようなプリプロセッサも利用が簡単になります. 

そこで， ktoc のリストの main 関数だけを変更して自動的に コンパイ ラを起 
動する ck . com というプログラムに作り換えてみましょう. ck に対するオプ 
ションはそのまま cc . com に対するオプションとなりますので ， nk (カタカナ 
のみ）オプションはなくなっています. 


リスト 6 - 1 - 2 ck . c と操作例 

nainCargc, argv ノ 
int argc; 

char *argv[]; 

{ 

char infile[20]； 

char outfile[20]； 

if ( argc < 2 ) 

{ 

printf (•害 式： ck filename [options]¥n") -変更 

exit (); 

} 

strcpy (infile,argv[l])i 
strcpy (outfile,argv[l]); 
streat (infile,*.C*); 
streat (outfile,••CK*); 

kanjif = TRUE; 

if (ERROR == fopen (infile,fpin)) 

{ 

printf (_<h> がオーブンできません' inf ile); 
exit (); 

} 

if (ERROR == fereat (outfile,fpout)) 

{ 

printf (•く％ s> を作成することができません 'outfile); 
exit 〇; 

} 

ktoc 0; /* メインルーチン*/ 

fputc (CPMEOP)S 

if (ERROR == fclose (fpout)) 

printf (•く％ s> を正しくクローズできません' outfile); 
else ' 

{ 

printf C<35s> を作成しました ¥n\outfile); 
argv[l]= outfile; 
argv [argc]=0； 

exeev (’cc.cobT ，&argv[l]); 


(以降変更なし） 
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A>cc ck -62200""- execv 関数が加わるためサイズが大きくなる. 一 e 2200 でコンパイル. 

BD Software C Co»piler vl.50a (part I) 

32K elbowroon 

BD Software C Compiler vl.50 (part II) 

29K to spare 


A>clink ck 

BD Software C Linker vl.50 
Linkage complete 
38K left over 


A>ck ck -e 2200 -p- - 完成した ck . com で自分自身をコンパイルしてみる. 

く CK.CK> を作成しました 

BD Software C Compiler vl. 50a (part 1)^ - ck.com により自斅匕勺^: 

. コンパイルが 起動される. 

•i (前略) 

24: main(argc, argv) 

25 : int argc; 

26： char *argv[]; 

27: { 

28： 

29： 

30: 

31： 

32： 

33： 

34： 

35： 


195： 

¥337¥202¥254¥202¥351¥202¥251¥*¥203}¥201!¥203N¥202?252¥227¥216¥202¥277¥202¥304 
¥202¥242¥202¥334¥202¥267 # ); 


196： 

exit 0; 

197： 

} 

198： 

199： } 

200： } 

else fputc ^*pnt++); 


31K elbowroora 

BD Software C Compiler vl.50 (part II) 
29K to spare 


A>clink ck 

BD Software C Linker vl.50 
Linkage complete 
38K left over 
A> 


char 

char 

infile[20]; 
outfile[20]； 


if ( argc < 2 ) 
l 

/ -このように変換されているため， 

/ 入カファイルは正しく ck . ck である. 

} 

:;(中略） 

printf C¥217¥221¥216V256： ck filename [options]¥n # )； 
exit 0； 

printf 

C¥225¥266¥216¥232¥227¥361¥202¥252¥222¥267¥211 



なお，この ck を利用する場合， cc . com は必ずデフォルトドライブ （ A > の 















6-2 swapin 関数を用いた オーバー レイ 


159 


時にはドライブ A ) に入れておく必要があります. 

また， main 関数の最後で 

argv [ argc 】 =0; 

という式がありますが，ポインタ配列 argv は0から argc -1 までの要素しか存 
在していないので，本来このような使い方をしてはいけません.しかし， 
BDS C ， a - C ではランタイムパッケージの部分にあらかじめ30個まで argv 
用の空間が確保されており，問題が発生することはありません. 


■ 6-2 swapin 関数を用いたオー/くー レイ 

さて，プログラムが長くなり，実行時に必要なブログラムモジュールを口 
ードする本格的なオーバーレイをとらねばならなくなった場合，あらかじめ 
プログラムを次のような観点から，機能ごとに振り分ける必要がでてきます. 

1. 常に存在しなければならなぃ関数（機能） 

2. 必要に応じて実行できれば良ぃ関数(機能) 

1. はオーバーレイする際の常駐プログラム（ルートセグメント）となり， 

2がオーバーレイセグメントになります.このオーバーレイセグメントを複 
数用意し，どのプログラムをロー ドするかによって実行できる機能を切り換 
えます. 
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ルートセグメント 


1 


才ーバーレイセグメント2 


1 


才ーバーレイセグメント1 


図でお判りのように，オーバーレイセグメント1が存在しているときには 
オーバーレイセグメント2の関数は実行することはできません.両者共通に 
必要な関数はルートセグメントに入れておくか，両方のファイ.ルに同じよう 
に入れておかなければなりません. 

また，これはコンパイルしてから言えることですが',ルートセグメントの 
サイズそのものが大きくなり過ぎると共用メモリ領域が狭くなり，オーバー 
レイセグメントが入り切らなくなります.特に，1〜2 K バイトしかない空 
間をいくつものオーバーレイセグメントで共用するという方法は余りにも煩 
雑であり，うまいやり方とは言えないでしょう.このような場合には関数の 
レイアウトを考慮して 4 K バイト程度のメモリをまず確保し，その上で，才 
ーバーレイセグメントは2つなり3つなりのファイルに厳選するほうが良 
いと思います.この時，オーバーレイセグメント1と2が大体同じようなサ 
イズになると，効率も良くなります. 

オーバー レイセグメントの読み込みはルートセグメントから行ないます. 
この時，このファイル名を ovlprgl . com とし，読み込むアドレスを0 x 4000 と 
すると， 

swapin( ovlprgl.com ,0x4000); 

としてメモリ上にロー ドする方法が良く用いられます. 0 x 4000 はそのまま才 
ーバーレイセグメントを呼び出す時のアドレスでもあります. swapin 関数 







6-2 swapin 関数 を用いたオーバーレイ 161 

は簡単にディスク上のファイルの内容をメモリに呼び出すことができるので 
便利ですが，ファイルの長さをチェックしないので注意しなければならない 
場合もあります. 

オーバーレイ関数の実行は関数へのポインタを用いて間接的に行ないます. 

int (* ovlprg )(); 

〇 v 1 p r g =0 x 4 0 0 0 ; 

(* o v 1 p r g ) (引数）； 

という形になります.上記の方法はオーバーレイ時に限らず，関数名ではな 
くアドレスで関数呼出しを実行する場合の一般的な方法です. 

それでは実際の例をご紹介します. 

リスト 6-2 - 1 オーバーレイのサンプルと操作例 

A> type overlay.c 

Kinclude く bdscio.h 〉 

nainO 

{ 

char buf [4] ； 
while (1) 

{ 

printf CWhich function (1or 2 )./)； 
ge11ine (buf,3 )； 

if (*buf = = ， l ，） ovll(); 

else if ( 本 buf = = ’2 ’） ovl2 0 5 

} 

} 


ovll0 
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int い ovlprg)() ; 

if (ERROR == swapin Covll.com'0x4000))— 
printf ("ovll overlay error !¥n"); 


else 


ovlprg = 0x4000 ； 
Oovlprg) () — 


' 一 swapin により 

オーバーレイセグメント 
を読み込む. 


オーバーレイセグメントの実行. 


ovl2() 

{ 

int い ovlprg)() ; 

if (ERROR == swapin ("ovl2.com*,0x4000)) 

printf ("ovl2 overlay error !¥n*); 

else 

{ 

ovlprg = 0x4000; 

(♦ovlprg) 0; 


A>type ovll.c 


Ifinclude <bdscio. h> 


mainO 

{ 

printf (*it is in ovll¥n"); 


A>type ovl2.c 
^include <bdscio.h> 


main () 
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printf (’it is in ovl2¥n ’）； 


-オーバーレイ時には外部変数とコードが 

ダブらないように外部変数アドレスを 

A>cc overlay -e 6000 -- 指定する . 

BD Software C Compiler vl.50a (part I) 

34K elbowroom 

BD Software C Compiler vl.50 (part II) 

31K to spare 


A>clink overlay -w 
BD Software C Linker vl.50 
Linkage complete 
42K left over 


A>cc ovi1 -e 6000 

BD Software C Compiler vl.50a (part I) 

35K elbowroom 

BD Software C Compiler vl.50 (part II) 

r ~ V 才ーバーレイセグメント指定. 
一14000実行開始ァドレスを 
400 0 H に指定. 
k. —y overlay 

overlay , sym といつ 


32K to spare 

\ 

A>clink ovll-v -14000 -y overlay 


BD Software C Linker vl.50 
Linkage complete 
46K left over 


シンボルフアイルを読込 
み，既に存在する関数は 
リンクしない. 


A>cc ov!2 -e 6000 

BD Software C Compiler vl.50a (part I) 
35K elbowroom 

BD Software C Compiler vl.50 (part II) 
32K to spare 


A>clink ovl2 -v -14000 -y overlay 
BD Software C Linker vl.50 
Linkage complete 
46K left over 


A>overlay 
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Which function (1or 2 ) ••丄 

it is in ovl 1"*- オーハ • ーレイセグメントを口ードして実行 . 

Which function (1or 2)..2 

it is in ovl2 

Which function (1or 2)•.1 
it is in ovll 


Which function (1or 2 )..2 
it is in ovl2 

Which function (1or 2).. A C 

A> 一 


リスト 6 ~ 2 - 1 は小さい 2 つの才ーバーレイセグメントを 4000H 番地から 
読み込み，それと同時に実行させている例です.1を選ぶと ovll.com を，2を選 
ぶと ovl2.com を読み込みます.実行はロードアドレスと同じく 400 0H 番地か 
らです. 

ここで重要なことはこのオーバーレイセグメントの中にはメインプログラ 
ム中に存在する pr intf などの関数が含まれておらず，オーバーレイセグメント 
からの printf 関数の呼出しはメインプログラム内のサ ブルー チンを コールす 
ることで行なっているということです.これらの処理は自動的に行なわれま 
すので，頭を悩ませることはありません. 


| 6-3 オーバーレイ関数の呼び出し方法 

さて，前項の例はオーバーレイモジュール1つにつき1つの関数だけでし 
たが，実際にこのような場合に問題になるのは次の2点です. 

1 . モジュールが既にロー ドされているかどうかの確認をどうするか. 

2. モジュールの中に複数の関数がある場合，どうやって呼び出しを 
行なうか. 

実行前に必ずファイルをロー ドしてやれば問題はありませんが，オーバーレ 
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イ時はかなりディスクアクセスに時間がかかりますから，もし既に必要なセ 
グメントがメモリ上に存在しているなら，ロー ドせずに済ませたいものです. 
また，ルートセグメント（常駐のメインプログラム）からはオーバーレイセ 
グメントの先頭アドレス以外は知ることができませんので，関数が2つ以上 
ある場合，2番め以降の関数をダイレクトに呼び出すことができません. 

そこで，手続は少し面倒になりますが，オーバーレイセグメントの1番最 
初に，あらかじめチェック用の関数を記述しておき，現在存在しているモジ 
ュールの番号を返すようにしておきます.すると，必要な関数を呼び出す際 
に，まずメモリ上にあるかどうかをテストして，なければディスクからロー 
ド，あればそのまま関数を呼び出せば良いわけです.また，この関数を引数 
により複数の関数を呼び出す複合関数にしておけば，呼び出しアドレスが判 
らなくとも構わないことになります. 

具体的には次のように行ないます. 


リスト 6-3-1 オーバーレイのチェック 


A>type overlay2.c 
^include く bdscio.h 〉 


^define FUNCO 0 
define FUNC1 1 


轉 define funca () 
林 define funcb() 
林 define funccO 
林 define funcdO 


funcO (1) 
funcO (2) 
fund (1) 

fund ⑵ノ 


関数 funca — funcd をマクロ定義している.このように 
すると '31 数の異なる同一関数の呼び出しが異なる関数 


の呼び出しのように扱える. 


main () 


char buf [4 ]； 

if (ERROR == swapin (• f uncO• con* ， 0x4000)) —趣時に何か 

f 1つモジュー 

i ルを読み込ん 

printf (* No overlay segment .’）； てゼくことが 

exit 〇 ; 必要 . 


while (1) 
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printf (*Which function (1-4)..") 


getline 
if 

else if 
else if 
else if 


(buf,3 )； 
(*buf = = * 1 *) 
(*buf = = * 2*) 

(*buf = = ’ 3 ’） 
( 本 buf== ， 4 ，） 


funca () i 
funcb () 
funcc (); 
funcd () 


f uncO (n) 

in t n; 

{ 

int (*ovlprg)(); 

ovlprg = 0x4000; 

if ( (*ovlprg) (0) ! = FUNCO )^ 一ー メモリ上にあるセグメントが funcO.com 

j でなければファイルを口ードする. 

if (ERROR == swapin (*funcO.com*,0x4000)) 

{ 

printi ( funcO overlay error !¥n"); 
return; 


(*ov1prg) (n) - 引数を持ってオーバーレイセグメント 

j 上の関数を実行する. 

fund (n) 

int n ； 

{ 

int い ovlprg ， 0 ； 

ovlprg = 0x4000 ; 

if ( (*ovlprg)(0) != FUNCl) 

{ 

if (ERROR == swapin (* funci.com", 0x4000)) 

{ 

printf (* f unci overlay error !¥n"); 
return; 


(*ovlprg) (n); 


チハ識のしえ 

I l 意常出扱 
ルオを通びに 
ンはィ，呼ぅ 
ィてレず数よ . 
メンーせ関のる 


A>type funcO.c 


才ーバーレイセグメント0 
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Itinclude <bdscio. h> 
#define FUNCO 0 


main (n) 

{ 


char 


n; 

switch 

(n) 

X 

case 

0： 

return (FUNCO); 

case 

1： 

funca (); 



return ； 

case 

2： 

f uncb (); 



return; 

default 

• 9 


■•才ーバーレイセグメント種類の 
チェック.当然，ファイル毎に 
戻り値は変える必要がある. 


lunca 〇 , 

{ 

} 

f uncb () 

{ 

} 


•実際に実行したい関数 funca 


printf (*This is function A¥n*); 


printf ("function B excuting.¥n *)； 


A>type funci.c 


^include く bdscio.h 〉 
ttdefine FUNC1 1 
main (n) 

char n; 

{ 

switch (n) 

{ 

case 0 ： return (FUNC1 )； 
case 1 : funcc 0 ; 
return; 

case 2: funcd (); 
return ； 
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default:; 


第 6 章オー•バー■レイとチエイ上： 


f uncc () 

{ 

printf (*This is function C¥n*); 


funcd 0 

{ 

printf ("function B excuting.¥n*); 


くルートセグメントのコンパイノレ〉 

A>cc overlay2 -e6000 

BD Software C Compiler vl.50a (part I) 
34K elbowroom 

BD Software C Compiler vl.50 (part II) 
31K to spare 

A>clink overlay2 -w 

BD Software C Linker vl.50 

Linkage complete 
42K left over 

〈オーバーレイセグメント〇のコンパイル〉 

A>cc funcO -e 6000 

BD Software C Compiler vl.50a (part I) 
35K elbowroom 

BD Software C Compiler vl.50 (part II) 
32K to spare 

A>clink funcO -v -14000 -y overlay2 

BD Software C Linker vl.50 

Linkage complete 
46K left over 

くオーバーレイセグメント l のコンハ•イル〉 

A>cc fund -e 6000 

BD Software C Compiler vl.50a (part I) 
35K elbowroom 

BD Software C Compiler vl.50 (part II) 
32K to spare 
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A>cl ink fund -v -14000 -y overlay 2 

BD Software C Linker vl .50 
Linkage complete 
46 K left over 


A > overlay 2 


Which function (1-4)• 
This is function A 
Which function (1-4). 
function B excuting. 
Which function (1-4). 
This is function C 
Which function (1-4). 
function B excuting . 
Which function (1-4). 
function B excuting . 
Which function (1-4). 
This is function A 
Which function (1-4). 
function B excuting . 
Which function (1-4). 
This is function C 


ファイ ル読出しは行なわれない. 
ファイル読出しが行なわれる. 
ディ スクアクセス なし. 

デイ スクアクセス あり. 

ディ スタアクセス なし. 

ディ スタアクセスあり. 

ディ スタアクセスなし. 


Which function (1-4 ).• A C 


A> 

リスト 6 - 3 - 1 のような構造にしておけば，不要な場合にはディスクアクセ 
スをせずに済みますし，メインブログラムからもいちいち気にせずにオーバ 
ーレイ部分のプログラムを一般の関数と同じように呼び出せます.ちょっと 
した仮想記憶方式になるわけです.ただ，いずれにせよディスクアクセスを 
伴う場合が存在するわけですから，その関数の実行時間の予測がつきにくく， 
リアルタイムの制御には向きません. 


リスト 6-3-1 の例ではオーバーレイのブログラムを呼び出す場合に引数 
が設定されておらず，複数の関数を呼び出す複合関数も簡単に作成できるの 
ですが，数多く引数を持つ場合，および引数の数が不定の場合にはこの複合 
関数の作成方法自体が問題になります.一般に，引数を int などで受け，実際 
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の関数呼び出し時に必要なものだけを引数に設定するようにしておけば型は 
異なっても値としては同じものになりますので，正しく実行されます.ただ， 
引数設定はもともとメモリと実行時間を浪費しますから，オーバーレイする程メ 
モリに余裕がなくなってきた場合にはなるべく行ないたくないものです. 

そのような際にはじかに関数を呼び出す方法をとることもできます.ただ 
しこの場合，基本的にはルートセグメントのプログラムのリンク時にオーバ 
ーレイ部分のリンク終了しており，アドレスが決定していなければなりませ 
ん.ところが，オーバーレイのリンク時には逆にルートセグメントのアドレ 
スがすべて決定していなければならないのですから，どう コンパイルす るか 
が問題になります. 

これはなかなか難しいのですが，まず関数名とでためらなアドレスを記述 
したダミーのシンボルファイルを作成し，リンカーをごまかしてなんとかル 
ートセグメントの COM ファイルを作ってしまいます.その際にシンボルフ 
ァイルの出力を必ず指定しておき，得られたシンボルファイルを利用して才 
ーバーレイモジュールを作成します. 

その際に一 s ， あるいは 一 w オプションにより，シンボルリストを出力し， 
確定したアドレスを再びダミーのシンボルファイルに書き込み，ルートセダ 
メントをリンクします.オーバレイセグメントのリンク時に出力されるシン 
ボルファイルにはルートセグメントのアドレスも出力されているため，使う 
ことはできません. 

操作例6 -3- 2 2回ルートセグメントをリンクする方法 

A>type overlay 3 .c 
林 include < bdscio . h > 

mainO 

{ 

char buf [4]； 

if (ERROR == swapin Cfunc . com *,0 x 4000)) 


printf (*No overlay segment .*); 
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exit 〇; 

} 

while (1) 


printf 

("Which function 

(1-4). 

• •) 

getline 

( buf ,3); 



if 


(* buf == , l , ) 

fund 

0; 

else 

if 

(* buf ==’ 2’） 

func 2 

0; 

else 

If 

(* buf == , 3 , ) 

func 3 

0; 

else 

if 

(* buf == , 4 , ) 

func 4 

0; 


A>type func.c 
林 include < bdscio . h > 

mainO {}- —— —— CLINK でリンクする場合は 

ダミーで bain 関数が必要. 

( 3バイトのロスになる） 

fund 0 

{ 

printf v iunction 1 excuting .¥ n "); 

} 

func 2() 

{ 

printf ("This is func 2¥ n *); 


func 3() 

{ 

printf ("FUNCTION 3, HERE ¥ n *); 


func 4() 

{ 

printf (•this is 4 th function ¥ n *); 


A>cc overlay 3 - e 6000 
BD Software C Compiler vl .50 a (part I ) 
35 K elbowroom 

BD Software C Compiler vl .50 (part II ) 
32 K to spare 
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A>type aummy.sym 

0000 

FUNGI 

0000 

FUNC2 

0000 

FUNC3 

0000 

FUNC4 


.あらかじめダミーの 
シンボルファイルを作成しておく 


•関数名 

.エントリアドレス 


A>clink overlay3 -y gummy -w 

BD Software C Linker vl.50 

Linkage complete 
42K left over 


dummy.sym を読み込ませ，シンボルファイル 
出力を指定してリンク . 

ここで作成された overlay 3. com は実行できな 

いので注意. 


A>cc func -e6000- - オーバーレイセグメントのコンパイル . 

BD Software C Compiler vl.50a (part I) 

35K elbowroom 

BD Software C Compiler vl.50 (part II) 

32K to spare 


A>clink func -v -14000 -y overlay3 - オーノヽ•ーレイセグメントのリンク. 


BD Software C Linker vl.50 
Ignoring duplicate function: FUNC4 
Ignoring duplicate function ： FUNC4 
Ignoring duplicate function: FUNC4 
Ignoring duplicate function: FUNC4 


「重複関数あり」というエラーが出力される . 
多分， FUNC 1 〜 FUNC 4 についてのエラーだ 
と思われるが， FUNC 4 について 4 回出力され 
> t こ , CLINK のバグであろう . 
overlay 3. sym の中に同じ関数名が存在するた 
め，このようなエラーとなるが， func.crl 中 
の関数が優先されるため問題にならない . 


1109 CLOSE 
404B FUNC3 
0F8A I SLOWER 
110C PUTCHAR 
OEED _GV2 


0FB9 EXIT 
406D FUNC4 
4000 MAIN 
1060 READ 
0A1D -SPR 


Last code address: 4093 
Top of memory: DC05 
Linkage complete 
46K left over 


4003 FUNC1 
OFBC GETLINE 
0FF8 OPEN 
0986 SWAPIN 
0E16 _USPR 


402A FUNC2 _ 
OEBE ISDIGIT 
09FA PRINTF 
0F50 TOUPPER 

I - 部のアドレス 

をメモしておく . 


A>ed dummy .sym -4 - dummy.sym を書さ換える . 





1 

*4T 


1 

0000 

FUNCr 

2 

0000 

FUNC2 

3 

0000 

FUNC3 

4 

0000 

FUNC4, 
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*1 

4003 

FUNC 1 

402 A 

FUNC 2 

404 B 

FUNC 3 

406 D 

FUNC 4 

*4 K 


* B 4 T 


4003 

FUNC 1 

402 A 

FUNC 2 

404 B 

FUNC 3 

406 D 

FUNC 4 


1： *E 


シンボル出力に従ってアドレスを列挙. 


A>cl ink overiay 3 _-y dummy -* — 
BD Software C Linker vl .50 
Linkage complete 
42K left over 


正しい dummy , sym を用いて 

ルートセグメントをもう一度リンク. 

コンハ•イルの必要はない. 


A > overlay 3 

Which function (1-4) ••丄 
function 1 excuting . 
Which function (1-4). ._2 
This is func 2 
Which function (1-4) ••呈 
FUNCTION 3 ,HERE 
Which function (1-4) ••主 

this is 4 th function 
Which function (1 - 4 )•• A C 


すべて正しく実行された. 


A > 


しかし，この方法は余りにも不便ですし，間違いやすいのでお勧めできま 
せんが，もし用いる場合には，才 ー バ ー レイモジュ ー ルが口 ー ドされている 
かどうかのチェックはかならず行なってください. 

なお，オーバーレイプログラムを作成する場合にはリンカーとして clink 以 
外に BDS C 付属の L 2 を用いることができます.考え方は同じですが，才 
ーバーレイセグメントのファイル中に main 関数が無くても良い点，プログラ 
ムサイズが若干小さくなる点で有利になります. 
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あとが吉 

BDS C ， ひ - C はコンパイル及びリンクが速い C 言語です.本書の執筆に 
は Xlturbo + RAM ディスク2基という構成で利用しましたが，短いリスト 
はほとんど数秒でコンパイルが終了し，類似の構成で動作させた16ビット用 
のコンパイラよりも速いのには驚かされました.このため，ちょっとしたプ 
ログラム作成には当分手離すことができそうにありません.サブセットであ 
るということ， ソースファ イルを一旦メモリにす ベて 読み込んでから展開す 
るタイプであることがこの高速性を実現しているのでしょう. 

C 言語の学習という観点から考えるならば，この コンパイル 速度はかなり 
重要な ポイン トだと思われます.最初はほとんどが コンパイル &リ ンクの 繰 
り返しですから，意欲を失わずに学習効果を上げることができると思います. 

なお，本書は私が初心者に C 言語を教えるためにまとめたものですが，同 
時に上級者のためのテクニックも解説した積りです.また，本書でわからな 
いところは マニュアルを 必ず参照してください. 

さらに高度な部分を知りたい方は拙著 「BDS C プログラミング」を併せて 
參考にして頂くと良いでしょう. 

本書が少しでも読者の方々のお役に立てば幸いです. 


御手洗毅 


仕事の関係で，私も C 言語を勉強しなければならなくなりました.初めは 
C 言語になじめずとても苦労しましたが，少しずつ理解し，ようやく自分で 
プログラムを作ることができるようになりました.その際の学習ノー トが本 
書の原型になっています。 
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あとがき 


本書は私のテンポにあわせて進みますからおそらく，どなたでも無理なく 
C 言語を学んでいただけるものと思います.私が理解に苦しんだ，関数の中 
での引数の扱いかたや，ポインタ，構造体の使い方について詳細に解説され 
ていると思います. 

また，4章以降は内容的に上級者向きになっています. この 部分は，何が 
書かれているかを読み取れば よいでしょう.この 章から長い プログラムがで 
てきます が， 総てを理解する必要はありません.とにかく，その プログラム 
が何をするものなのかをつかめば良いと思います.最後に，私に辛抱強く教 
えてくれた夫(御手洗毅)， プログラムを 作成するのに時間がかかり，御迷 
惑をおかけした工学図書の方々に厚く御礼申し上げます. 


御手洗理英 
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コ ンパイル エラー メ ッセー ジー覧表 

BDS C および a - C でコンパイル時に発生する エラーの メ ッ セージを A B C 順に 
ならべてあります. 

く エラー メ ッ セージの 見方〉 

■イ ン クルードファイルのとき 

Include @2:2: Missing semicolon 

2番目にイ ンクルー ド」 1 —イ ンクルー ドフアイ ル 

しているファイル の2打め 

■ソースファイルのとき 

b ； Missing semicolon 

1 —ファイルの5行め 

指定行でエラーが発生したことを示しますが，必らずしもブログラムの誤りはそ 
の行にあるとは限りません. 

Attribute mismatch from previous declaration 

異なる構造体などの中で同一のメンバ名を使う場合，その属性は同一でなけ 
ればならない. 

Bad ar 泛 to unary operator 

単項演算子の使い方の誤り. 


Bad argument list 

関数の引数中におかしなものがある . 
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コンノヽ。イノレエラ——メッセージー覽表 


Bad array base 

配列として宣言されてないのに，添字を付けている. 

Bad case constant 

case の定数がおかしい. 


Bad constant 

定数がない. 


Bad decimal digit 

10 進定数の中に，数字 （0 〜 9) 以外の文字がある. 

Bad declaration syntax 

変数宣言の文法が間違っている.キーワード （ char ， int 等）を含む文の残り 
が，宣言文でない時に起こる. 


Bad demension value 

配列宣言で，サイズを示す添字は，定数または，定数式でなければならない. 


Bad expression 

式が正しくない. 


Baa for syntax 

間違った for 文がある. for の （） 中には；が2つなければならない. 


Bad Tunction name 

関数でないのに関数呼出しを行なおうとした. 


Bad left operand in assignment expression 

代入式での左項が代入できない定数などになっている. 




コンパイルエラーメッセージー覧表 
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Bad octal digit 

0で始まる8進定数に，〇〜7以外の数字がある時に起こる. 


Bad parameter list element 

関数定義の引数パラメータの中に，間違った識別子（変数名）がある. 


Bad parameter list syntax 


関数定義の引数リスト中にコンマで区切られた変数名以外のものがある. 


Bad structure or union member 

構造体または，共有体のメンバとして，宣言されてない名前が，ピリオド，ま 
たは， 一> 演算子の右側にある. 

Bad structure or union speciTication 

構造体または，共有体として，宣言されてない名前が，ピリオド演算子の左 
側にある. 


Bad subscript 

配列の添字がおかしい. 


Bad symbols 

— y オプシヨンで指定されたシンボルファイルが，シンボルファイルの形式 
をしていない. 

Bad type in binary operation 

2 進数演算の中に，おかしなタイプがある. 


Bad use of member name 

構造体，または，共有体のメンバーとして宣言された識別子は，構造体，ま 
たは，共有体操作以外では，使うことができない. 
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Cannot ODen : <filename> 

〈 filename 〉 というフアイルが見付からない. 


Can’t close : 〈 filename 〉 

〈 filename 〉 で示されるファイルが，クローズできない. 


Can’t create CRL file 

出カドライブのディレクトリ • フル. 

Can't find CC2. COM; writing CCI file to disk 

CC が CC 2 を見付けることができず， CCI エクステンシヨンで中間フアイ 
ルをディスクに書いた. 

Can’t have more than one default : 

1 つの switch 文の中に， 1 つ以上の default :がある. 


Close error 

ファイルを， クロー ズしようとした時 エラーが 起きた. 

Compilation aborted by contro 卜し 

コンパイル中に，コントロール C がタイプされたらコンパイルは中断する • 

Conditional expr bad or beyond implemented subset 

社 if などのプリプロセッサは標準 C 言語のサブセットである. 

CRL Dir overflow : break up source file 

1 つのソースファイル中に関数の数が多すぎる.ソースファイルを2つに分 
割したほうがよい. 


Curly-braces mismatched somewhere in this function 




コン/ぐイルエ ラーメッセー-ジー覧表 撒。* 

表示行からはじまる関数に I (カーリープレイス）が多すぎる. 

Declaration too complex 

この エラーは，関数の レベルが 多すぎたり，カッコが多すぎたりした時に起 
こる。 

Dir full 

ディスクのディレクトリエリアが，いっぱいなため，ファイルを出力できない. 

Disk read error 

ディスク から データを 読もうとした時， エラーが 起きた. 


DuDlicate label 

ラベルが2重に定義されている. 


Encountered ヒ Oh unexpectedly (check curly-brace balance) 

プログラムが，途中で終っている.これは，コメントか|が閉じてない時に 
起こる. 

EOF found when expecting # endif 

条件コンパル （: ft if ， # ifdef ， # ifndef 等）に， # endif がない. 

Error on file output.disk full? 

ファイルにデータを書こうとした時の エラー. ディスクに，空きエリアがな 
い場合が多い. 

Lrror writing : く filename ク 

く filename 〉 で示されるファイルが，書き込みエラーとなった. 

ディスク.フルの場合が多い. 


Expecting ( 
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普通， while , if , switch キーワードの後の（がない時に起こる。 

Expecting : 

:がない. 

Expecting | in struct or union def 

構造体または共有体宣言に 1 がない. 

Expecting | in switch statement 

switch 文の I がない. switch 文の式の部分は，複文を含む I |の前になけれ 
ばならない. 

tixpectin^ while 

do . while 文で, while がない. 


Function definition not external 

関数定義関数の中にある. 

多くの場合，； （セミコロン） を忘れて いる * 


Illegal breaK or coutinue 

break 文，または， continue 文が間違った位置にある 0 


Illegal colon 

おかしなコロン （ ： ） がある . 


Illegal \ encountered externally 

I が，おかしな所にあった時に起こる. 


Illegal external statement 

関数の外に，おかしな文がある.これは，普通，|が多すぎる時に起こる. 
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Illegal indirection 

ポインターの扱いがおかしい.ポインターではないのに，ポインターとして 
使っている変数がある. 


Illegal statement 


おかしな文がある. 


Illegal structure or union 

構造体宣言の構造体タグ位置に現われる識別子が，以前に，構造体タグと違 
うもので宣言されている. 


I’m totally confused. Cneck your control structure! 

変な文字があるか，または ， I I のネストがおかしい. 


# include files nested too deep 

社 include のファイルが，相互に# include している. 

Internal error : garbage in file or bug in し 

CC 2 で，このエラーが起きたら，コンパイラのバグと考えられる. BD ソフ 
トウヱアに連絡して下さい. 


Lvalve needed with ++ or - operator 

単純変数以外はインクリメント及びデクリメントできない. 


Lvalue reguirea 

代入演算で左項がない. 


Mismatched control structure 


構造体の制御がおかしい • I 丨がマッチしていない. 
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Mismatched parenthesis 

カッ コがマ ッチしてない. 


Mismatched square brackets 

〔〕がマッチしてない. 

Missing from formal parameter list : 〈 name 〉 

変数の宣言が，関数名の後のパラメータリストにない. 


Missing function(s) : <list-of-names> 

(関数名並び） 

<) ist - of - names > 中に示されるファイルが見つからない. 

Missing | in function def. 

関数定義中に I がない.プログラム中に，誤った1がない. 


Missing legal identifier 

必要な識別子が式の中にない. 

Missing or misplaced ( 

( がないか，位置がおかしい. 

Missing or misplaced ) 

) がないか，位置がおかしい. 

Missing oarameter list 

マクロ化された# define 中の識別子が，パラメータなしに現われている. 
例えば， 

# define sqr ( A ) ( A ) * ( A ) 

と定義されているのに， 




d =sqr 
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の様に使われている. 


Missing semicolon 

;がない.しかし，；がない場合，他の無意味なエラーをひき起こす場合が 
多い. 


Need explicit dimension size 

配列のサイズが明記されてない.配列宣言でサイズを省くことができるのは， 
その配列が，関数の引数である時だけである. 


Not in a conditional block 

これは，井 endif があるのに， # if ， # ifdef , 林 ifndef がない. 


Out of symbol table space ; specify more. 

C C のためのシンボルテーブル領域が才ーバーフロー した.このエラーが出 

たら，ソースファイルをいくつかに分けた方がよい. 


Parameter mismatch 

マクロ 化された# define 中の識別子の，パラメータの数が合わない. 


Redeclaration of : く name> 

く name 〉 で示される変数が，二重宣言されている。 


Sorry ; out of memory 

ソースファイルが，大きすぎて，メモリーに入らない.このエラーがでたら， 
ソースファイルを分割した方がよい. 


Sorry, out of memory. Break it up ! 

ファイルが，大きすぎてメモリ中に入らない. 




186 コンパイルエラーメッ セージ ー覧表 

String overflow;call BDS 

井 define 指定で，たいへん長い識別名を多く持ったために，起こるプリプロ 
セッサ文字列テーブルオーバーフロー . 


String too long (or missing quote) 

文字列が，長すぎる.（または，、' がない）. 

Sub-expression too deeply nested 

このエラーは，永久に続く，多重の代入文について発生する. 


Syntax error 

はっきりしない文法的エラー. 


<text> : option error 

間違ったオプシヨンが指定された. 


The function <foo> is too complex; break it up a Dit 

関数 foo が長く複雑すぎる.関数を2つに分割しなさい. 


Too many cases (200 max per switch) 

1 つの switch 文の中の case が， 200 を越えている. 


Too many dimensions 

酉己列の次元が多すぎる . BDS C では，2次元まで. 


Too many functions (63 max) 

1 つの BDS C ソースファイルは， 63 コの関数までしか，含むことはできな 

い. 


Undeclared identifier : <name> 
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〈 name 〉 で示される名の変数が宣言されてない. 


Undefined label used 

未定義のラベルが使われている. 


Unmatched left parenthesis 

(が，合わない. 


Unmatched right brace 

I がないか，意味のない | があるか. 


Warning : Ignoring unknown preprocessor directive 

BDS C でサポートされてないプリプロセッサ指定がある. 
ツサは，無視される. 


このプリプロセ 
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【コ】 
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コマンドライン . 27 
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条件コンパイル . 75 

初期値設定 . 62 

【ス】 

スタ ティック 変数 . 62 


【チ】 
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【テ】 

低レベルファイル10 . 33 

【ハ】 

倍精度整数 . 62 

バッファードファイル10……33,37,38 
バブルソート . 23 

【フ】 

浮動小数点演算 . 77 

プリプロセッサ . 68,125 

【へ】 

へッターファイノレ . 84 

【ホ】 

ポインタ . 18 


チェイン 
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索 引 


<欧文> 
【 A 】 

atof. 

atok. 

atokstr. 


"79 

136 

135 


【 B 】 


bdscio. h .6 

break.12 


【 C 】 


cc .2 

cc2 .2 

ck.157 

clink.3 

close .34 

cos .:90 

CPMEOF .41 

creat .34 


【 E 】 


ED. 2,5 

EOF .41 

ERROR.41 

execv .155 

exit.36 


【 F 】 

FALSE . 

FCH. 

fclose. 

fcopy . 

fcreat . 

fgets. 

FILE . 

float. 

fopen . 

for . 

fpadd . 

fprintf . 

fputs . 

fscanf. 


…“ 41 
.…130 
…" 38 
…" 89 
…"38 
•38,39 
…"39 
62,77 
…"38 
…•-10 
…79 
38,39 
…38 
…38 


【 G 】 

getc. 38 

getcher . 13 

gets. 52 

【 H 】 

htokana .138 

htokstr.138 

[I ] 

iskanji. 140 

itof.79 

【 K 】 

kanatoh .139 

kgetline .134 

ktoa.136 

ktoastr.136 

ktoc .125 

ktohstr.139 

ktype .139 

【 L 】 

left.47 

long.62 

【 M 】 

main.6 

mid.49 

【 N 】 

NULL .41 

【 O 】 

open .34 

【 P 】 

printf. 7,30 

putc.38 

putchar .13 

【 Q 】 

qsort .27 
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【 R 】 

read . 34 

right . 48 

romanstr.137 

【 S 】 

scanf. 12,52 

seek .34 

sin .86 

strcat.44 

strcmp .45 

strcpy.44 

strlen.46 

struct.53 

SUBMIT .96 


< その他 > 


/ .106 

+ +. 21 

¥ ” .31 

¥n. 7,31 

¥t .12 

$$$. SUB.99 

% . 11 

%d.31 

%s.31 


swapin.159 

【 T 】 

tan .93 

TRUE .41 

【 U 】 

unlink . 103 

【 W 】 

while .42 

write .34 

【 X 】 

XSUB.96 


# define .68 

# else.68 

# endif .68 

# if . 68,75 

# ifdef. 68,75 

# ifndef.75 

# include . 68,74 

# undef . 68,73 

&. 12 

@.96 









































BDS c / a - c 関連ソフトウェアにつし、て 


(有)アーマッ トでは bds c / a-c 関連ソフトウェアとして 「bds c ユー ティリテ 

ィパッケージ」を発売しています.このパッケージの中には， Z 80 二ーモニック用 
のアセンブラプリプロセッサ- ( zcasm ) ， CRL フアイル用の逆アセンブラ ( dacrl ) 
などが収められており ， BDS C / tt - C で本格的なプログラム開発を考えている方に 
は大変有効な内容になっています.これらのソフトウェアについての評細は，工学 
図書発行の 「BDS C プログラミング」をご覧ください.なお，本書で紹介した「日 
本語処理パッケージ」，「拡張サブミットコマンド」も含まれておりますので，本書 
のディスクサービスとしてもご利用ください. 

現金書留か郵便振替で住所，氏名，年齢，勤務先，電話番号，使用システム，デ 
ィスクタイプを明記の上，下記宛にお申し込み下さい.販売は通信販売のみです. 

C ディ スク 内容） 
f p 1 〇 ng . h 
zcasm. c 
zcasm. com 
mr asm. com. 
da c r 1.com 

nihongo . c 
k t o c . c 

exsub. c (@.com) 拡張サブミットコマンド（ソースフアイルと実行フアイル） 
exsub2. c (/ . com) 拡張サブミットコマンド（ソ - スフアイルと実行フアイル） 

その他 ， 「BDS C プログラミング」のディスクサービスで扱っていたものはすべて 
含まれます. 

ca~¥) 

10.000 円（送料を含む） 

( 巧 象 シス ァム J 

PC - 8001，8801シリーズ （5 インチ 2 D ) X 1， XI turbo シリーズ （5 インチ 2 D ), CP / M 標 
準 （8 インチ片面単密），その他のシステムの方は，あらかじめお問い合わせください. 


float, long 関数のヘッダーファイル 
casm の Z80 版ソースプログラム 
casm の Z80 版実行ファイル 

Z80 二ーモニックのアブソリユートアセンブラ (VI.3) 
CRL ファイルを Z80 アセンブラのソースファイルに 
変換するユーティリティ 
日本語処理ユーティリティ 
日本語変換ユーテイリテイ 




f 申し込み先; ） 

〒227 横浜市緑区荏田町 473-5 

阑ァーマット TE し 045-911-7427 郵便振替横浜 5 — 30518 
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